Changeset 12258 in project for chicken/branches

Timestamp:

10/24/08 10:45:01 (12 years ago)

Author:

felix winkelmann

Message:

set heap-limit for benchmarks to 16m (fprint ran out of memory); fixed bug noticed by Kon (thanks)

Location:

chicken/branches/cmi

Files:

• benchmarks/cscbench.scm (modified) (1 diff)
• compiler.scm (modified) (1 diff)

chicken/branches/cmi/benchmarks/cscbench.scm

@@ -52 +52 @@
 
 (define (compile-and-run file decls options coptions unsafe)
-  (system* "~A ~A -quiet -no-warnings -heap-size 8m -output-file tmpfile.c ~A ~A"
+  (system* "~A ~A -quiet -no-warnings -heap-size 16m -output-file tmpfile.c ~A ~A"
            chicken file decls options)
   (system* "~a ~a -s -I.. tmpfile.c -o tmpfile ../lib~achicken.a -lm"

chicken/branches/cmi/compiler.scm

@@ -1438 +1438 @@
             (set! profiled-procedures #t)
             (for-each 
-             (custom-declare-alist mark-variable <> '##compiler#profile)
+             (cut mark-variable <> '##compiler#profile)
              (stripa (cdr spec)))))
        ((local)