mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

fix compilation of functions with more than 255 local variables.

Browse source 
* module/language/glil/compile-assembly.scm (glil->assembly): Fix case
  where there are more than 255 local variables.  Whoops!
This commit is contained in:
Andy Wingo 2013-02-20 16:02:30 +01:00
parent e716f4410f
commit 90f51aba0d
1 changed files with 26 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/glil/compile-assembly.scm
View file

@ -597,7 +597,7 @@
(else (error "what" op)))
(let ((a (quotient index 256))
(b (modulo index 256)))
`((,(case op
(case op
((ref)
(if boxed?
`((long-local-ref ,a ,b)
@ -622,8 +622,7 @@
`((long-local-ref ,a ,b)
(variable-bound?))
`((long-local-bound? ,a ,b))))
(else (error "what" op)))
,index))))
(else (error "what" op)))))
`((,(case op
((ref) (if boxed? 'free-boxed-ref 'free-ref))
((set) (if boxed? 'free-boxed-set (error "what." glil)))