diff options
author | Andy Wingo <wingo@pobox.com> | 2018-01-10 07:43:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-01-10 07:59:21 +0100 |
commit | 24f998e4d23f70cbe2398007eb0afbbd685aa1eb (patch) | |
tree | 99b430701709e9122798a058cc0984a8be3e4bf3 /module/language/cps/compile-bytecode.scm | |
parent | 97301efca49180d17c1106359e1dfcb75fc3e63e (diff) | |
download | guile-24f998e4d23f70cbe2398007eb0afbbd685aa1eb.tar.gz |
Lower box, box-ref, box-set! primcalls
* module/language/tree-il/compile-cps.scm (box, ensure-box):
(box-ref, box-set!): Lower box primcalls.
* module/language/cps/compile-bytecode.scm (compile-function):
* module/language/cps/cse.scm (compute-equivalent-subexpressions):
* module/language/cps/dce.scm (compute-live-code):
* module/language/cps/effects-analysis.scm:
* module/language/cps/types.scm: Remove special support for boxes. What
a pleasure!
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index 12ef69b77..ce4097361 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -316,8 +316,6 @@ (($ $primcall 'free-set! idx (closure value)) (emit-free-set! asm (from-sp (slot closure)) (from-sp (slot value)) idx)) - (($ $primcall 'box-set! #f (box value)) - (emit-box-set! asm (from-sp (slot box)) (from-sp (slot value)))) (($ $primcall 'struct-set! #f (struct index value)) (emit-struct-set! asm (from-sp (slot struct)) (from-sp (slot index)) (from-sp (slot value)))) |