SmallInteger.st
changeset 11506 90a3c57d1b17
parent 11500 6afe4d6e867c
child 11519 657e60b50dce
--- a/SmallInteger.st	Sun Feb 01 11:32:31 2009 +0100
+++ b/SmallInteger.st	Sun Feb 01 12:05:51 2009 +0100
@@ -902,7 +902,7 @@
         _cnt += _counts[_self & 0xF]; _self = _self>>4;      
 # if __POINTER_SIZE__ == 8
         if (_self != 0) {
-            _cnt += _counts[_self & 0xF]; _self = _self>>4;      
+            _cnt += _counts[_self & 0xF]; _self = _self>>4;   // xxxxxxxx________    
             _cnt += _counts[_self & 0xF]; _self = _self>>4;      
             _cnt += _counts[_self & 0xF]; _self = _self>>4;      
             _cnt += _counts[_self & 0xF]; _self = _self>>4;      
@@ -3798,5 +3798,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.173 2009-02-01 02:03:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.174 2009-02-01 11:05:51 cg Exp $'
 ! !