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.
added #hashFor:
authorClaus Gittinger <cg@exept.de>
Wed, 19 Mar 1997 16:00:54 +0100
changeset 2460 1d7caef5f5ed
parent 2459 0a38e8602aac
child 2461 2d65e1845502
added #hashFor:
IdDict.st file | annotate | diff | comparison | revisions
IdSet.st file | annotate | diff | comparison | revisions
IdentityDictionary.st file | annotate | diff | comparison | revisions
IdentitySet.st file | annotate | diff | comparison | revisions 
--- a/IdDict.st	Wed Mar 19 16:00:25 1997 +0100
+++ b/IdDict.st	Wed Mar 19 16:00:54 1997 +0100
@@ -184,6 +184,14 @@
 	 this is only called after growing"
     ].
     ^ index
+!
+
+hashFor:aKey
+    "return an initial index given a key."
+
+    ^ aKey identityHash
+
+    "Created: 19.3.1997 / 15:03:36 / cg"
 ! !
 
 !IdentityDictionary methodsFor:'testing'!
@@ -212,5 +220,5 @@
 !IdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/IdDict.st,v 1.23 1996-11-12 15:13:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/IdDict.st,v 1.24 1997-03-19 15:00:43 cg Exp $'
 ! !
--- a/IdSet.st	Wed Mar 19 16:00:25 1997 +0100
+++ b/IdSet.st	Wed Mar 19 16:00:54 1997 +0100
@@ -167,10 +167,18 @@
     ].
     ^ index
 
+!
+
+hashFor:aKey
+    "return an initial index given a key."
+
+    ^ aKey identityHash
+
+    "Created: 19.3.1997 / 15:18:59 / cg"
 ! !
 
 !IdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/IdSet.st,v 1.20 1996-11-12 15:13:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/IdSet.st,v 1.21 1997-03-19 15:00:54 cg Exp $'
 ! !
--- a/IdentityDictionary.st	Wed Mar 19 16:00:25 1997 +0100
+++ b/IdentityDictionary.st	Wed Mar 19 16:00:54 1997 +0100
@@ -184,6 +184,14 @@
 	 this is only called after growing"
     ].
     ^ index
+!
+
+hashFor:aKey
+    "return an initial index given a key."
+
+    ^ aKey identityHash
+
+    "Created: 19.3.1997 / 15:03:36 / cg"
 ! !
 
 !IdentityDictionary methodsFor:'testing'!
@@ -212,5 +220,5 @@
 !IdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/IdentityDictionary.st,v 1.23 1996-11-12 15:13:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/IdentityDictionary.st,v 1.24 1997-03-19 15:00:43 cg Exp $'
 ! !
--- a/IdentitySet.st	Wed Mar 19 16:00:25 1997 +0100
+++ b/IdentitySet.st	Wed Mar 19 16:00:54 1997 +0100
@@ -167,10 +167,18 @@
     ].
     ^ index
 
+!
+
+hashFor:aKey
+    "return an initial index given a key."
+
+    ^ aKey identityHash
+
+    "Created: 19.3.1997 / 15:18:59 / cg"
 ! !
 
 !IdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.20 1996-11-12 15:13:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.21 1997-03-19 15:00:54 cg Exp $'
 ! !
hg/stx-libbasic