mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-17 19:42:24 +02:00
Code Activity

CPS->RTL compiler: add push-fluid and pop-fluid

Browse source 
* module/language/cps/compile-rtl.scm (emit-rtl-sequence): Add cases for
  push-fluid and pop-fluid.
This commit is contained in:
Andy Wingo 2013-10-21 22:25:27 +02:00
parent 1e6aee3bf9
commit 5db3e6bce4
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/compile-rtl.scm
View file

@ -222,6 +222,10 @@
(emit-set-cdr! asm (slot pair) (slot value)))
(($ $primcall 'define! (sym value))
(emit-define asm (slot sym) (slot value)))
(($ $primcall 'push-fluid (fluid val))
(emit-push-fluid asm (slot fluid) (slot val)))
(($ $primcall 'pop-fluid ())
(emit-pop-fluid asm))
(($ $primcall 'unwind ())
(emit-unwind asm))
(($ $primcall name args)