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

* Added some benchmarking data in benchmarks/BUGS

This commit is contained in:
Abdulaziz Ghuloum 2007-06-15 08:59:49 +03:00
parent 3acdcb6c04
commit d4facf79d3
3 changed files with 104 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
benchmarks.larceny/results.Larceny-r6rs
View File

@ -6422,3 +6422,83 @@ Words allocated: 551809361
Words reclaimed: 0 Words reclaimed: 0
Elapsed time...: 2272 ms (User: 2241 ms; System: 20 ms) Elapsed time...: 2272 ms (User: 2241 ms; System: 20 ms)
Elapsed GC time: 763 ms (CPU: 755 in 2105 collections.) Elapsed GC time: 763 ms (CPU: 755 in 2105 collections.)
****************************
Benchmarking Larceny-r6rs on Fri Jun 15 08:56:37 AST 2007 under Darwin Vesuvius.local 8.9.1 Darwin Kernel Version 8.9.1: Thu Feb 22 20:55:00 PST 2007; root:xnu-792.18.15~1/RELEASE_I386 i386 i386
Testing fibfp 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: 358610884
Words reclaimed: 0
Elapsed time...: 3328 ms (User: 3260 ms; System: 47 ms)
Elapsed GC time: 502 ms (CPU: 501 in 1368 collections.)
****************************
Benchmarking Larceny-r6rs on Fri Jun 15 08:56:48 AST 2007 under Darwin Vesuvius.local 8.9.1 Darwin Kernel Version 8.9.1: Thu Feb 22 20:55:00 PST 2007; root:xnu-792.18.15~1/RELEASE_I386 i386 i386
Testing mbrot 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: 551809361
Words reclaimed: 0
Elapsed time...: 2287 ms (User: 2245 ms; System: 23 ms)
Elapsed GC time: 785 ms (CPU: 759 in 2105 collections.)
****************************
Benchmarking Larceny-r6rs on Fri Jun 15 08:56:59 AST 2007 under Darwin Vesuvius.local 8.9.1 Darwin Kernel Version 8.9.1: Thu Feb 22 20:55:00 PST 2007; root:xnu-792.18.15~1/RELEASE_I386 i386 i386
Testing pnpoly 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: 72351714
Words reclaimed: 0
Elapsed time...: 1510 ms (User: 1494 ms; System: 7 ms)
Elapsed GC time: 94 ms (CPU: 110 in 276 collections.)
****************************
Benchmarking Larceny-r6rs on Fri Jun 15 08:57:09 AST 2007 under Darwin Vesuvius.local 8.9.1 Darwin Kernel Version 8.9.1: Thu Feb 22 20:55:00 PST 2007; root:xnu-792.18.15~1/RELEASE_I386 i386 i386
Testing sumfp 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: 400031744
Words reclaimed: 0
Elapsed time...: 1828 ms (User: 1805 ms; System: 11 ms)
Elapsed GC time: 547 ms (CPU: 544 in 1526 collections.)

22
benchmarks/BUGS
View File

@ -40,3 +40,25 @@ BEFORE:
30995 ms elapsed real time 30995 ms elapsed real time
1600160040 bytes allocated 1600160040 bytes allocated
AFTER $fl+, $fl-, $fl*, $fl/:
running stats for fibfp:
343 collections
2659 ms elapsed cpu time
2677 ms elapsed real time
1433318472 bytes allocated
running stats for mbrot:
530 collections
2002 ms elapsed cpu time
2030 ms elapsed real time
2215766392 bytes allocated
running stats for pnpoly:
81 collections
2127 ms elapsed cpu time
2144 ms elapsed real time
335204784 bytes allocated
running stats for sumfp:
382 collections
1856 ms elapsed cpu time
1890 ms elapsed real time
1600164776 bytes allocated

4
benchmarks/r6rs-benchmarks/sumfp.ss
View File

@ -7,8 +7,8 @@
(define (run n) (define (run n)
(let loop ((i n) (sum 0.)) (let loop ((i n) (sum 0.))
(if (fl<? i 0.) (if (fl<? i 0.)
sum sum
(loop (fl- i 1.) (fl+ i sum))))) (loop (fl- i 1.) (fl+ i sum)))))
(define (main . args) (define (main . args)
(run-benchmark (run-benchmark