From 96339116e71b54b4341401fcc258176e26293b39 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 17 Oct 2015 15:50:06 +0200 Subject: [PATCH 4/4] Make literal-size calculation for symbols more precise. Symbol literals take up a symbol (size 4) and a bucket (size 3), for a total of 7, not 10. --- c-backend.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/c-backend.scm b/c-backend.scm index c70661e..7374783 100644 --- a/c-backend.scm +++ b/c-backend.scm @@ -641,7 +641,7 @@ (cond [(immediate? lit) 0] [(string? lit) 0] [(number? lit) words-per-flonum] - [(symbol? lit) 10] ; size of symbol, and possibly a bucket + [(symbol? lit) 7] ; size of symbol, and possibly a bucket [(pair? lit) (+ 3 (literal-size (car lit)) (literal-size (cdr lit)))] [(vector? lit) (+ 1 (vector-length lit) (reduce + 0 (map literal-size (vector->list lit))))] [(block-variable-literal? lit) 0] -- 2.1.4