hg/stx-libbasic: comparison Object.st

equal deleted inserted replaced

-:fbfd2d411738
+:a74d669db937
 	    self dependents:(WeakArray with:anObject)
 	] ifFalse:[
 	    deps class == WeakArray ifTrue:[
 		dep := deps at:1.
 		dep ~~ anObject ifTrue:[
-		    (dep isNil or:[dep == 0]) ifTrue:[
+		    (dep isNil or:[dep class == SmallInteger]) ifTrue:[
 			deps at:1 put:anObject
 		    ] ifFalse:[
 			self dependents:(WeakIdentitySet with:dep with:anObject)
 		    ]
 		]
 |deps nwDeps|
 deps := self dependents.
 deps size ~~ 0 ifTrue:[
 	deps do:[:d |
-		    (d notNil and:[d ~~ 0]) ifTrue:[
+		    (d notNil and:[d class ~~ SmallInteger]) ifTrue:[
 			aBlock value:d
 		    ]
 		]
 ].
 nwDeps := self nonWeakDependents.
 	    "/ added. Here we have to do the inverse ...
 	    ((deps class == WeakArray) or:[deps class == Array]) ifTrue:[
 		((d := deps at:1) == anObject
 		or:[d isNil
-		or:[d == 0]]) ifTrue:[
+		or:[d class == SmallInteger]]) ifTrue:[
 		    self dependents:nil
 		]
 	    ] ifFalse:[
 		deps remove:anObject ifAbsent:[].
 		(n := deps size) == 0 ifTrue:[
 "/        GenericException handle:[:ex |
 "/            "/ ignore any error during termination
 "/        ] do:[
 "/           Processor activeProcess terminate.
 "/        ].
+	MiniDebugger enter.
 	Processor activeProcess terminateNoSignal.
 ].
 "if there has been an ST-signal installed, use it ..."
 sig := OperatingSystem operatingSystemSignal:signalNumber.
 perform:aSelector withOptionalArgument:arg
 "send aSelector-message to the receiver.
 If the message expects an argument, pass arg."
 aSelector argumentCount == 1 ifTrue:[
-^ self perform:aSelector with:arg
+	^ self perform:aSelector with:arg
 ].
 ^ self perform:aSelector
 "
 |rec sel|
 |numArgs|
 numArgs := aSelector argumentCount.
 numArgs == 0 ifTrue:[
-^ self perform:aSelector
+	^ self perform:aSelector
 ].
 numArgs == 1 ifTrue:[
-^ self perform:aSelector with:optionalArg1
+	^ self perform:aSelector with:optionalArg1
 ].
 ^ self perform:aSelector with:optionalArg1 with:optionalArg2.
 "
 |rec sel|
 |numArgs|
 numArgs := aSelector argumentCount.
 numArgs == 0 ifTrue:[
-^ self perform:aSelector
+	^ self perform:aSelector
 ].
 numArgs == 1 ifTrue:[
-^ self perform:aSelector with:optionalArg1
+	^ self perform:aSelector with:optionalArg1
 ].
 numArgs == 2 ifTrue:[
-^ self perform:aSelector with:optionalArg1 with:optionalArg2
+	^ self perform:aSelector with:optionalArg1 with:optionalArg2
 ].
 ^ self perform:aSelector with:optionalArg1 with:optionalArg2 with:optionalArg3.
 "
 |rec sel|
 |numArgs|
 numArgs := aSelector argumentCount.
 numArgs == 0 ifTrue:[
-^ self perform:aSelector
+	^ self perform:aSelector
 ].
 numArgs == 1 ifTrue:[
-^ self perform:aSelector with:optionalArg1
+	^ self perform:aSelector with:optionalArg1
 ].
 numArgs == 2 ifTrue:[
-^ self perform:aSelector with:optionalArg1 with:optionalArg2
+	^ self perform:aSelector with:optionalArg1 with:optionalArg2
 ].
 numArgs == 3 ifTrue:[
-^ self perform:aSelector with:optionalArg1 with:optionalArg2 with:optionalArg3
+	^ self perform:aSelector with:optionalArg1 with:optionalArg2 with:optionalArg3
 ].
 ^ self perform:aSelector with:optionalArg1 with:optionalArg2 with:optionalArg3 with:optionalArg4.
 "
 |rec sel|
 ifNil:nilBlockOrValue ifNotNil:notNilBlockOrValue
 "return the value of the first arg, if I am nil,
 the result from evaluating the 2nd argument, if I am not nil.
 Notice:
-This method is open coded (inlined) by the compiler(s)
+	This method is open coded (inlined) by the compiler(s)
-- redefining it may not work as expected."
+	- redefining it may not work as expected."
 (notNilBlockOrValue isBlock and:[notNilBlockOrValue argumentCount == 1]) ifTrue:[
-^ notNilBlockOrValue value:self.
+	^ notNilBlockOrValue value:self.
 ].
 ^ notNilBlockOrValue value
 !
 ifNotNil:aBlockOrValue
 "return myself if nil, or the result from evaluating the argument,
 if I am not nil.
 Notice:
-This method is open coded (inlined) by the compiler(s)
+	This method is open coded (inlined) by the compiler(s)
-- redefining it may not work as expected."
+	- redefining it may not work as expected."
 (aBlockOrValue isBlock and:[aBlockOrValue argumentCount == 1]) ifTrue:[
-^ aBlockOrValue value:self.
+	^ aBlockOrValue value:self.
 ].
 ^ aBlockOrValue value
 !
 ifNotNil:notNilBlockOrValue ifNil:nilBlockOrValue
 "return the value of the 2nd arg, if I am nil,
 the result from evaluating the 1st argument, if I am not nil.
 Notice:
-This method is open coded (inlined) by the compiler(s)
+	This method is open coded (inlined) by the compiler(s)
-- redefining it may not work as expected."
+	- redefining it may not work as expected."
 (notNilBlockOrValue isBlock and:[notNilBlockOrValue argumentCount == 1]) ifTrue:[
-^ notNilBlockOrValue value:self.
+	^ notNilBlockOrValue value:self.
 ].
 ^ notNilBlockOrValue value
 !
 ifNotNilDo:aBlock
 !Object class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.809 2015-06-05 16:11:10 stefan Exp $'
+^ '$Header$'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.809 2015-06-05 16:11:10 stefan Exp $'
+^ '$Header$'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 18630	a74d669db937
parent 18442	bd42fa983e3f
parent 18620	b4e9f25d6ce6
child 18688	43370946620c