conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

when the address of the pointer is "negative".
This commit is contained in:
Abdulaziz Ghuloum 2007-08-28 19:47:14 -04:00
parent efb59a4f46
commit e1e2673ad7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

4
src/pass-specify-rep-primops.ss
View File

@ -32,8 +32,8 @@
(define (dirty-vector-set address) (define (dirty-vector-set address)
(prm 'mset (prm 'mset
(prm 'int+ (prm 'int+
(prm 'mref pcr (K 28)) ;;; FIXME: make srl (prm 'mref pcr (K 28))
(prm 'sll (prm 'sra address (K pageshift)) (K wordshift))) (prm 'sll (prm 'srl address (K pageshift)) (K wordshift)))
(K 0) (K 0)
(K dirty-word))) (K dirty-word)))