Use #times: #instead of #* in hash to avoid long arithmethic.
authorStefan Vogel <sv@exept.de>
Wed, 19 Feb 1997 13:53:11 +0100
changeset 2411 6b3e74bf1703
parent 2410 eea60bba0412
child 2412 f20a5b10e6ab
Use #times: #instead of #* in hash to avoid long arithmethic.
SeqColl.st
SequenceableCollection.st
--- a/SeqColl.st	Wed Feb 19 13:07:02 1997 +0100
+++ b/SeqColl.st	Wed Feb 19 13:53:11 1997 +0100
@@ -656,7 +656,7 @@
      time can become much bigger than the time lost in added probing.
      Time will show ..."
 
-    ^ ((self at:1 ifAbsent:0) hash * self size) bitAnd:16r3FFFFFFF
+    ^ ((self at:1 ifAbsent:0) hash times:self size) bitAnd:16r3FFFFFFF
 
     "
      #(1 2 3 4 5) hash
@@ -2949,5 +2949,5 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SeqColl.st,v 1.77 1997-02-10 11:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SeqColl.st,v 1.78 1997-02-19 12:53:11 stefan Exp $'
 ! !
--- a/SequenceableCollection.st	Wed Feb 19 13:07:02 1997 +0100
+++ b/SequenceableCollection.st	Wed Feb 19 13:53:11 1997 +0100
@@ -656,7 +656,7 @@
      time can become much bigger than the time lost in added probing.
      Time will show ..."
 
-    ^ ((self at:1 ifAbsent:0) hash * self size) bitAnd:16r3FFFFFFF
+    ^ ((self at:1 ifAbsent:0) hash times:self size) bitAnd:16r3FFFFFFF
 
     "
      #(1 2 3 4 5) hash
@@ -2949,5 +2949,5 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.77 1997-02-10 11:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.78 1997-02-19 12:53:11 stefan Exp $'
 ! !