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

* Thunks, which did not allocate, now do not cause a heap-overflow 

check.  Reduces code size by around 30k.
This commit is contained in:
Abdulaziz Ghuloum 2006-12-04 11:56:54 -05:00
parent ff9439d3c1
commit d6a0ffa3ea
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lib/ikarus.boot
View File

Binary file not shown.

5
lib/libcompile.ss
View File

@ -1618,10 +1618,11 @@
(make-primcall 'void '())) (make-primcall 'void '()))
body)])) body)]))
(define (closure-size x) (define (closure-size x)
#|FIXME: closures with free vars should not alloc|#
(record-case x (record-case x
[(closure code free*) [(closure code free*)
(align (fx+ disp-closure-data (fx* (length free*) wordsize)))] (if (null? free*)
0
(align (fx+ disp-closure-data (fx* (length free*) wordsize))))]
[else (error 'closure-size "~s is not a closure" x)])) [else (error 'closure-size "~s is not a closure" x)]))
(define (sum ac ls) (define (sum ac ls)
(cond (cond