[pypy-svn] r47929 - pypy/dist/pypy/lang/smalltalk

[akuhn at codespeak.net]

Author: akuhn
Date: Thu Oct 25 15:55:05 2007
New Revision: 47929

Modified:
   pypy/dist/pypy/lang/smalltalk/squeakimage.py
Log:
(akuhn, with help by lr)
fixed yet another OFF-BY-ONE bug due to the 0-based 1-based mismatch


Modified: pypy/dist/pypy/lang/smalltalk/squeakimage.py
==============================================================================
--- pypy/dist/pypy/lang/smalltalk/squeakimage.py	(original)
+++ pypy/dist/pypy/lang/smalltalk/squeakimage.py	Thu Oct 25 15:55:05 2007
@@ -230,7 +230,8 @@
         
     def init_class(self, chunk):    
         if chunk.iscompact():
-            self.g_class = self.owner.compactclasses[chunk.classid].g_object
+            self.g_class = self.owner.compactclasses[chunk.classid
+                - 1].g_object # Smalltalk is 1-based indexed
         else:
             self.g_class = self.owner.chunks[chunk.classid].g_object