--- a/Behavior.st Sun May 24 14:52:47 2015 +0200
+++ b/Behavior.st Sun May 24 14:53:14 2015 +0200
@@ -1587,11 +1587,11 @@
"/ CG: why this?
"/ the VM ONLY looks at the lookupObject slot and does not walk the hierarchy;
"/ (which it should never !!!!!!)
- "/ It is the responsibility of the IDE (or whoever uses lookupObjects),
+ "/ It is the responsibility of the IDE (or whoever uses lookupObjects),
"/ to make sure that subclasses get a lookupObject, if they need it.
- "/ Also: it does not really make sense to redefine the behavior here
+ "/ Also: it does not really make sense to redefine the behavior here
"/ (for inheritance of lookup),
- "/ differently to what the VM does;
+ "/ differently to what the VM does;
"/ remember: this is also called for canUnderstand, respondsTo etc.
"/ and no one expects these to return different results than what the VM does.
@@ -1615,25 +1615,25 @@
lookupObject == anObject ifTrue:[^ self ].
anObject notNil ifTrue:[
- "/ check if it is valid; the reason is that the VM gets into bad trouble,
- "/ if some invalid thingy is set as lookup object
- (anObject respondsTo: #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:)
- ifFalse:[
- self error:'Lookup object does not respond to #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:'
- ].
-
- "/ CG: huh - what is this - it is nowhere implemented.
- (anObject respondsTo:#superLookupObject:)
- ifTrue:[
- anObject superLookupObject: self lookupObject
- ].
+ "/ check if it is valid; the reason is that the VM gets into bad trouble,
+ "/ if some invalid thingy is set as lookup object
+ (anObject respondsTo: #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:)
+ ifFalse:[
+ self error:'Lookup object does not respond to #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:'
+ ].
+
+ "/ CG: huh - what is this - it is nowhere implemented.
+ (anObject respondsTo:#superLookupObject:)
+ ifTrue:[
+ anObject superLookupObject: self lookupObject
+ ].
].
"/ the builtin has the same behavior as the VM's default;
"/ so let it do it - it's faster
anObject == BuiltinLookup instance ifTrue:[
- self setLookupObject: nil.
+ self setLookupObject: nil.
] ifFalse:[
- self setLookupObject: anObject.
+ self setLookupObject: anObject.
].
"Created: / 26-04-2010 / 13:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -2679,7 +2679,7 @@
memset4(__InstPtr(newobj)->i_instvars, 0, n4);
}
# else
-# if defined(FAST_ARRAY_MEMSET)
+# if 1 /* defined(FAST_ARRAY_MEMSET) */
/*
* knowing that nil is 0
*/
@@ -3438,8 +3438,8 @@
has to provide a method object for message sends."
lookupObject ~~ aLookupObjectOrNil ifTrue:[
- lookupObject := aLookupObjectOrNil.
- self withAllSubclassesDo:[:cls | ObjectMemory flushCachesFor: cls]
+ lookupObject := aLookupObjectOrNil.
+ self withAllSubclassesDo:[:cls | ObjectMemory flushCachesFor: cls]
]
"Modified: / 22-07-2010 / 18:10:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -5320,10 +5320,9 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.378 2015-05-18 15:20:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.379 2015-05-24 12:53:14 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.378 2015-05-18 15:20:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.379 2015-05-24 12:53:14 cg Exp $'
! !
-