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 · 2009-12-29 05:03:47 +03:00 · 69207de752
parent 84e0f4ab6d
commit 69207de752
3 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.boot.8.prebuilt
+++ b/scheme/ikarus.boot.8.prebuilt
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1864
+1865
--- a/scheme/pass-specify-rep-primops.ss
+++ b/scheme/pass-specify-rep-primops.ss
@ -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))])