[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-110-g90f51ab

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=90f51aba0d2b28ac4819f8800f2dcf8d67edbd28

The branch, stable-2.0 has been updated
       via  90f51aba0d2b28ac4819f8800f2dcf8d67edbd28 (commit)
      from  e716f4410fb3f6c614def5a9b33a39185f637002 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 90f51aba0d2b28ac4819f8800f2dcf8d67edbd28
Author: Andy Wingo <address@hidden>
Date:   Wed Feb 20 16:02:30 2013 +0100

    fix compilation of functions with more than 255 local variables.
    
    * module/language/glil/compile-assembly.scm (glil->assembly): Fix case
      where there are more than 255 local variables.  Whoops!

-----------------------------------------------------------------------

Summary of changes:
 module/language/glil/compile-assembly.scm |   53 ++++++++++++++---------------
 1 files changed, 26 insertions(+), 27 deletions(-)

diff --git a/module/language/glil/compile-assembly.scm 
b/module/language/glil/compile-assembly.scm
index 767fda3..4633485 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -597,33 +597,32 @@
                 (else (error "what" op)))
               (let ((a (quotient index 256))
                     (b (modulo index 256)))
-                `((,(case op
-                      ((ref)
-                       (if boxed?
-                           `((long-local-ref ,a ,b)
-                             (variable-ref))
-                           `((long-local-ref ,a ,b))))
-                      ((set)
-                       (if boxed?
-                           `((long-local-ref ,a ,b)
-                             (variable-set))
-                           `((long-local-set ,a ,b))))
-                      ((box)
-                       `((make-variable)
-                         (variable-set)
-                         (long-local-set ,a ,b)))
-                      ((empty-box)
-                       `((make-variable)
-                         (long-local-set ,a ,b)))
-                      ((fix)
-                       `((fix-closure ,a ,b)))
-                      ((bound?)
-                       (if boxed?
-                           `((long-local-ref ,a ,b)
-                             (variable-bound?))
-                           `((long-local-bound? ,a ,b))))
-                      (else (error "what" op)))
-                   ,index))))
+                (case op
+                  ((ref)
+                   (if boxed?
+                       `((long-local-ref ,a ,b)
+                         (variable-ref))
+                       `((long-local-ref ,a ,b))))
+                  ((set)
+                   (if boxed?
+                       `((long-local-ref ,a ,b)
+                         (variable-set))
+                       `((long-local-set ,a ,b))))
+                  ((box)
+                   `((make-variable)
+                     (variable-set)
+                     (long-local-set ,a ,b)))
+                  ((empty-box)
+                   `((make-variable)
+                     (long-local-set ,a ,b)))
+                  ((fix)
+                   `((fix-closure ,a ,b)))
+                  ((bound?)
+                   (if boxed?
+                       `((long-local-ref ,a ,b)
+                         (variable-bound?))
+                       `((long-local-bound? ,a ,b))))
+                  (else (error "what" op)))))
           `((,(case op
                 ((ref) (if boxed? 'free-boxed-ref 'free-ref))
                 ((set) (if boxed? 'free-boxed-set (error "what." glil)))


hooks/post-receive
-- 
GNU Guile