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

* can now compile libtoplevel

This commit is contained in:
Abdulaziz Ghuloum 2007-02-12 23:19:56 -05:00
parent f88e3a8b65
commit 826adfe9dd
2 changed files with 9 additions and 0 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.

9
src/libaltcogen.ss
View File

@ -159,6 +159,7 @@
[$vector-ref v] [$vector-ref v]
[$vector-set! e] [$vector-set! e]
[$set-symbol-value! e]
;;; ports ;;; ports
[output-port? p] [output-port? p]
[input-port? p] [input-port? p]
@ -170,6 +171,7 @@
[$closure-code v] [$closure-code v]
[$code-freevars v] [$code-freevars v]
[primitive-set! e] [primitive-set! e]
[primitive-ref v]
[$fp-at-base p] [$fp-at-base p]
[$current-frame v] [$current-frame v]
@ -621,6 +623,10 @@
(let ([x (Value (car arg*))] [v (Value (cadr arg*))]) (let ([x (Value (car arg*))] [v (Value (cadr arg*))])
(mem-assign v x (mem-assign v x
(- disp-symbol-system-value symbol-tag)))] (- disp-symbol-system-value symbol-tag)))]
[($set-symbol-value!)
(let ([x (Value (car arg*))] [v (Value (cadr arg*))])
(mem-assign v x
(- disp-symbol-value symbol-tag)))]
[($vector-set!) [($vector-set!)
(let ([x (Value (car arg*))] (let ([x (Value (car arg*))]
[i (cadr arg*)] [i (cadr arg*)]
@ -753,6 +759,9 @@
(prm 'mref (Value (car arg*)) (K (- disp-car pair-tag)))] (prm 'mref (Value (car arg*)) (K (- disp-car pair-tag)))]
[($cdr) [($cdr)
(prm 'mref (Value (car arg*)) (K (- disp-cdr pair-tag)))] (prm 'mref (Value (car arg*)) (K (- disp-cdr pair-tag)))]
[(primitive-ref)
(prm 'mref (Value (car arg*))
(K (- disp-symbol-system-value symbol-tag)))]
[($make-cp) [($make-cp)
(let ([label (car arg*)] [len (cadr arg*)]) (let ([label (car arg*)] [len (cadr arg*)])
(record-case len (record-case len