* fixed a bug in the code generator for assigning the dirty vector

when the address of the pointer is "negative".
2007-08-28 19:47:14 -04:00 · 2007-08-28 19:47:14 -04:00 · e1e2673ad7
parent efb59a4f46
commit e1e2673ad7
2 changed files with 2 additions and 2 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/pass-specify-rep-primops.ss
+++ b/src/pass-specify-rep-primops.ss
@ -32,8 +32,8 @@
 (define (dirty-vector-set address)
  (prm 'mset 
     (prm 'int+
-          (prm 'mref pcr (K 28)) ;;; FIXME: make srl
-          (prm 'sll (prm 'sra address (K pageshift)) (K wordshift)))
+          (prm 'mref pcr (K 28)) 
+          (prm 'sll (prm 'srl address (K pageshift)) (K wordshift)))
     (K 0)
     (K dirty-word)))