From 62b7180bfdad20ffce4497d5aa451f130b5c364a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 30 Mar 2014 19:31:07 +0200 Subject: [PATCH] Renumber functions before emitting code * module/language/cps/compile-bytecode.scm (compile-bytecode): Renumber a function before going to compile it, so that the vars and labels are contiguous within each function. --- module/language/cps/compile-bytecode.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index dfecdd6d0..968a562e1 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -37,6 +37,7 @@ #:use-module (language cps primitives) #:use-module (language cps prune-top-level-scopes) #:use-module (language cps reify-primitives) + #:use-module (language cps renumber) #:use-module (language cps simplify) #:use-module (language cps slot-allocation) #:use-module (language cps specialize-primcalls) @@ -525,6 +526,7 @@ (exp (optimize exp opts)) (exp (convert-closures exp)) (exp (reify-primitives exp)) + (exp (renumber exp)) (asm (make-assembler))) (visit-funs (lambda (fun) (compile-fun fun asm))