--- a/ObjectMemory.st Tue Jun 03 07:39:18 2014 +0200
+++ b/ObjectMemory.st Tue Jun 03 07:39:54 2014 +0200
@@ -1774,27 +1774,27 @@
|chain|
index > levels size ifTrue:[
- (start referencesObject:anObject) ifTrue:[
- ^ OrderedCollection with:anObject. "/ (self refNameFor:anObject in:start)
- ].
- ^ nil.
+ (start referencesObject:anObject) ifTrue:[
+ ^ OrderedCollection with:anObject. "/ (self refNameFor:anObject in:start)
+ ].
+ ^ nil.
].
(levels at:index) do:[:el |
el ~~ start ifTrue:[
- (start referencesObject:el) ifTrue:[
- chain := self
- refChainFrom:el
- to:anObject
- inRefSets:levels
- startingAt:(index+1).
-
- chain notNil ifTrue:[
- (levels at:index) saveRemove:el.
- chain addFirst:el. "/ (self refNameFor:el in:start).
- ^ chain.
- ]
- ].
+ (start referencesObject:el) ifTrue:[
+ chain := self
+ refChainFrom:el
+ to:anObject
+ inRefSets:levels
+ startingAt:(index+1).
+
+ chain notNil ifTrue:[
+ (levels at:index) safeRemove:el.
+ chain addFirst:el. "/ (self refNameFor:el in:start).
+ ^ chain.
+ ]
+ ].
].
].
^ nil
@@ -1818,8 +1818,8 @@
a3 := Array with:a2.
a4 := Array with:a3.
levels := Array with:(Array with:a3)
- with:(Array with:a2)
- with:(Array with:a1).
+ with:(Array with:a2)
+ with:(Array with:a1).
self refChainFrom:a4 to:o inRefSets:levels startingAt:1.
"
@@ -1833,30 +1833,30 @@
chains := OrderedCollection new.
index > levels size ifTrue:[
- (start referencesObject:anObject) ifTrue:[
- chains add:(OrderedCollection with:anObject "(self refNameFor:anObject in:start)").
- ].
- ^ chains
+ (start referencesObject:anObject) ifTrue:[
+ chains add:(OrderedCollection with:anObject "(self refNameFor:anObject in:start)").
+ ].
+ ^ chains
].
(levels at:index) do:[:el |
el ~~ start ifTrue:[
- (start referencesObject:el) ifTrue:[
- chain := self
- refChainFrom:el
- to:anObject
- inRefSets:levels
- startingAt:(index+1).
-
- chain size > 0 ifTrue:[
- (levels at:index) saveRemove:el.
-
- c := chain copy.
- c addFirst:el "(self refNameFor:el in:start)".
- chains add:c.
- ]
+ (start referencesObject:el) ifTrue:[
+ chain := self
+ refChainFrom:el
+ to:anObject
+ inRefSets:levels
+ startingAt:(index+1).
+
+ chain size > 0 ifTrue:[
+ (levels at:index) safeRemove:el.
+
+ c := chain copy.
+ c addFirst:el "(self refNameFor:el in:start)".
+ chains add:c.
+ ]
].
- ].
+ ].
].
^ chains
@@ -5563,11 +5563,11 @@
!ObjectMemory class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.277 2014-05-16 13:08:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.278 2014-06-03 05:39:54 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.277 2014-05-16 13:08:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.278 2014-06-03 05:39:54 stefan Exp $'
!
version_SVN