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

* starting with IntegerSet

This commit is contained in:
Abdulaziz Ghuloum 2007-03-10 16:47:13 -05:00
parent d4559cfd4c
commit 10bdc3dcd6
4 changed files with 383 additions and 527 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
benchmarks/results.Larceny-r6rs
View File

@ -5520,3 +5520,23 @@ Words allocated: 151779492
Words reclaimed: 0 Words reclaimed: 0
Elapsed time...: 4582 ms (User: 3117 ms; System: 1461 ms) Elapsed time...: 4582 ms (User: 3117 ms; System: 1461 ms)
Elapsed GC time: 255 ms (CPU: 259 in 579 collections.) Elapsed GC time: 255 ms (CPU: 259 in 579 collections.)
****************************
Benchmarking Larceny-r6rs on Sat Mar 10 01:01:29 EST 2007 under Darwin adsl-70-239-90-255.dsl.bltnin.sbcglobal.net 8.8.3 Darwin Kernel Version 8.8.3: Wed Oct 18 21:57:10 PDT 2006; root:xnu-792.15.4.obj~4/RELEASE_I386 i386 i386
Testing parsing under Larceny-r6rs
Compiling...
Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified)
>
>
Running...
Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified)
>
Words allocated: 100923902
Words reclaimed: 0
Elapsed time...: 6575 ms (User: 6505 ms; System: 70 ms)
Elapsed GC time: 276 ms (CPU: 293 in 385 collections.)

BIN
src/ikarus.boot
View File

Binary file not shown.

886
src/libaltcogen.ss
View File

File diff suppressed because it is too large Load Diff

4
src/libcompile.ss
View File

@ -227,7 +227,7 @@
(define-record var (define-record var
(name assigned referenced (name assigned referenced
reg-conf frm-conf var-conf reg-move frm-move var-move reg-conf frm-conf var-conf reg-move frm-move var-move
loc)) loc index))
(define-record cp-var (idx)) (define-record cp-var (idx))
(define-record frame-var (idx)) (define-record frame-var (idx))
(define-record new-frame (base-idx size body)) (define-record new-frame (base-idx size body))
@ -284,7 +284,7 @@
[else (error 'mkfvar "~s is not a fixnum" i)])))) [else (error 'mkfvar "~s is not a fixnum" i)]))))
(define (unique-var x) (define (unique-var x)
(make-var (gensym x) #f #f #f #f #f #f #f #f #f)) (make-var (gensym x) #f #f #f #f #f #f #f #f #f #f))
(define (recordize x) (define (recordize x)
(define *cookie* (gensym)) (define *cookie* (gensym))