From: Andy Wingo Date: Tue, 31 Mar 2015 10:21:47 +0000 (+0200) Subject: 32-way branching in intmap.scm, not 16-way X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/cf512e32687b41690ab436f13322d7a9e00094b7 32-way branching in intmap.scm, not 16-way * module/language/cps/intmap.scm (*branch-bits*): Switch to 32-way branching. Marginally faster on lookup, and creation costs can be amortized via using the transient interface. Marginal speedup for assembler.scm compilation. --- diff --git a/module/language/cps/intmap.scm b/module/language/cps/intmap.scm index 467a63d6b..948d0baba 100644 --- a/module/language/cps/intmap.scm +++ b/module/language/cps/intmap.scm @@ -49,7 +49,7 @@ (define-syntax-rule (define-inline name val) (define-syntax name (identifier-syntax val))) -(define-inline *branch-bits* 4) +(define-inline *branch-bits* 5) (define-inline *branch-size* (ash 1 *branch-bits*)) (define-inline *branch-mask* (1- *branch-size*))