Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dont clear entries while enumerating
authorClaus Gittinger <cg@exept.de>
Thu, 09 Jan 1997 01:32:33 +0100
changeset 2102 7a0e81ed345b
parent 2101 516fedf50916
child 2103 bb1c173afc55
dont clear entries while enumerating
WeakIdSet.st file | annotate | diff | comparison | revisions
WeakIdentitySet.st file | annotate | diff | comparison | revisions 
--- a/WeakIdSet.st	Thu Jan 09 01:31:33 1997 +0100
+++ b/WeakIdSet.st	Thu Jan 09 01:32:33 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.3 on 7-jan-1997 at 17:23:23'                     !
-
 IdentitySet subclass:#WeakIdentitySet
 	instanceVariableNames:''
 	classVariableNames:''
@@ -154,15 +152,21 @@
 
     index := 1.
     [index <= keyArray size] whileTrue:[
-	element := keyArray at:index.
-	element == 0 ifTrue:[
-	    keyArray at:index put:DeletedEntry.
-	] ifFalse:[
-	    (element notNil and:[element ~~ DeletedEntry]) ifTrue:[
-	        aBlock value:element
-	    ]
-	].
-	index := index + 1
+        element := keyArray at:index.
+        element == 0 ifFalse:[
+            (element notNil and:[element ~~ DeletedEntry]) ifTrue:[
+                aBlock value:element
+            ]
+        ] ifTrue:[
+
+"/ disabled, since we had to lock out interrupts here.
+"/ The entry is cleared anyway, when the next finalization round
+"/ is handled.
+
+"/            keyArray at:index put:DeletedEntry.
+"/            tally := tally - 1.
+        ].
+        index := index + 1
     ]
 ! !
 
@@ -184,5 +188,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.21 1997-01-08 19:42:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.22 1997-01-09 00:32:33 cg Exp $'
 ! !
--- a/WeakIdentitySet.st	Thu Jan 09 01:31:33 1997 +0100
+++ b/WeakIdentitySet.st	Thu Jan 09 01:32:33 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.3 on 7-jan-1997 at 17:23:23'                     !
-
 IdentitySet subclass:#WeakIdentitySet
 	instanceVariableNames:''
 	classVariableNames:''
@@ -154,15 +152,21 @@
 
     index := 1.
     [index <= keyArray size] whileTrue:[
-	element := keyArray at:index.
-	element == 0 ifTrue:[
-	    keyArray at:index put:DeletedEntry.
-	] ifFalse:[
-	    (element notNil and:[element ~~ DeletedEntry]) ifTrue:[
-	        aBlock value:element
-	    ]
-	].
-	index := index + 1
+        element := keyArray at:index.
+        element == 0 ifFalse:[
+            (element notNil and:[element ~~ DeletedEntry]) ifTrue:[
+                aBlock value:element
+            ]
+        ] ifTrue:[
+
+"/ disabled, since we had to lock out interrupts here.
+"/ The entry is cleared anyway, when the next finalization round
+"/ is handled.
+
+"/            keyArray at:index put:DeletedEntry.
+"/            tally := tally - 1.
+        ].
+        index := index + 1
     ]
 ! !
 
@@ -184,5 +188,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.21 1997-01-08 19:42:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.22 1997-01-09 00:32:33 cg Exp $'
 ! !
hg/stx-libbasic