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)))))
(for-each-var (var-var-move x) varvec
(lambda (var)
;(set-var-var-move! var
; (rem-var x (var-var-move var)))
(set-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)))
))
(add-frm fv (var-frm-move var)))))
fv)])))
(or (assign-move x)
(assign-any))))
@ -2946,9 +2940,9 @@
;[foo (printf "4")]
[x (impose-calling-convention/evaluation-order x)]
;[foo (printf "5")]
[x (time (assign-frame-sizes x))]
[x (assign-frame-sizes x)]
;[foo (printf "6")]
[x (time (color-by-chaitin x))]
[x (color-by-chaitin x)]
;[foo (printf "7")]
[ls (flatten-codes x)]
;[foo (printf "8")]