actually normalize rbigints when the image asks us (addresses overflo…

…ws in #131)

rsqueakvm/model/numeric.py

@@ -204,12 +204,6 @@ def calculate_exposed_size_for_big_int(value):
     bytelenval = value.abs()
     # XXX +0.05: heuristic hack float rounding errors
     return int(math.floor(bytelenval.log(256) + 0.05)) + 1
-    # TODO: check if this might be better
-    # try:
-    #     bytes = val.tobytes(bytelen, 'little', False)
-    # except OverflowError:
-    #     # round-off errors in math.log, might need an extra byte
-    #     bytes = val.tobytes(bytelen + 1, 'little', False)
 
 
 class W_LargeIntegerBig(W_LargeInteger):

rsqueakvm/plugins/large_integers.py

@@ -2,10 +2,11 @@
 from rsqueakvm.plugins.plugin import Plugin
 from rsqueakvm.primitives import prim_table
 from rsqueakvm.primitives.constants import *
-from rsqueakvm.model.numeric import W_LargeInteger
+from rsqueakvm.model.numeric import W_LargeInteger, W_LargeIntegerBig, calculate_exposed_size_for_big_int
 from rsqueakvm.model.variable import W_BytesObject
 
 from rpython.rlib.rbigint import rbigint, NULLRBIGINT, _divrem
+from rpython.rlib import jit
 
 LargeIntegers = Plugin()
 
@@ -73,16 +74,31 @@ def primDigitCompare(interp, s_frame, rcvr, arg):
             res = 0
     return interp.space.wrap_int(res)
 
+@jit.elidable
+def minimum_bytelen_for(val):
+    bytelen = calculate_exposed_size_for_big_int(val) - 1
+    while True:
+        try:
+            # see if we have enough room
+            val.tobytes(bytelen, 'little', False)
+            return bytelen
+        except OverflowError:
+            bytelen += 1
+
 @LargeIntegers.expose_primitive(unwrap_spec=[object])
 def primNormalizePositive(interp, s_frame, w_rcvr):
     if isinstance(w_rcvr, W_BytesObject):
         # only bytes object may be denormalized
         return interp.space.wrap_rbigint(w_rcvr.unwrap_rbigint(interp.space))
+    elif isinstance(w_rcvr, W_LargeIntegerBig):
+        w_rcvr._exposed_size = minimum_bytelen_for(w_rcvr.value)
     return w_rcvr
 
 @LargeIntegers.expose_primitive(unwrap_spec=[object])
 def primNormalizeNegative(interp, s_frame, w_rcvr):
     if isinstance(w_rcvr, W_BytesObject):
         # only bytes object may be denormalized
         return interp.space.wrap_rbigint(w_rcvr.unwrap_rbigint(interp.space))
+    elif isinstance(w_rcvr, W_LargeIntegerBig):
+        w_rcvr._exposed_size = minimum_bytelen_for(w_rcvr.value.abs())
     return w_rcvr