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

* assign-frame-sizes is as complete as could be (time for assigning 

libcompile.ss dropped from ~5 secs to 1.8 secs).
This commit is contained in:
Abdulaziz Ghuloum 2007-03-11 20:55:43 -04:00
parent 068bc38e42
commit f27c2df625
2 changed files with 3 additions and 9 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.

12
src/libaltcogen.ss
View File

@ -1782,14 +1782,8 @@
(add-frm fv (var-frm-conf var))))) (add-frm fv (var-frm-conf var)))))
(for-each-var (var-var-move x) varvec (for-each-var (var-var-move x) varvec
(lambda (var) (lambda (var)
;(set-var-var-move! var
; (rem-var x (var-var-move var)))
(set-var-frm-move! var (set-var-frm-move! var
(add-frm fv (var-frm-move var))) (add-frm fv (var-frm-move var)))))
;(let ([loc (var-loc var)])
; (when (and loc (not (fvar? loc)))
; (assign-move var)))
))
fv)]))) fv)])))
(or (assign-move x) (or (assign-move x)
(assign-any)))) (assign-any))))
@ -2946,9 +2940,9 @@
;[foo (printf "4")] ;[foo (printf "4")]
[x (impose-calling-convention/evaluation-order x)] [x (impose-calling-convention/evaluation-order x)]
;[foo (printf "5")] ;[foo (printf "5")]
[x (time (assign-frame-sizes x))] [x (assign-frame-sizes x)]
;[foo (printf "6")] ;[foo (printf "6")]
[x (time (color-by-chaitin x))] [x (color-by-chaitin x)]
;[foo (printf "7")] ;[foo (printf "7")]
[ls (flatten-codes x)] [ls (flatten-codes x)]
;[foo (printf "8")] ;[foo (printf "8")]