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.

diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index dfecdd6..968a562 100644 (file)
--- 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))