fixed a bug in $flonum-sbe that caused a read of 4 bytes past the

end of the flonum object in 64-bit mode (manifesting in a segfault when running make check on fedora 64-bit).
2009-12-29 05:03:47 +03:00
parent 84e0f4ab6d
commit 69207de752
3 changed files with 2 additions and 2 deletions
@@ -1 +1 @@
-1864
+1865
@@ -1226,7 +1226,7 @@
  [(V x) 
   (prm 'sll 
     (prm 'srl 
-       (prm 'mref (T x)
+       (prm 'mref32 (T x)
          (K (- (+ disp-flonum-data 4) vector-tag)))
       (K 20))
     (K fx-shift))])