summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-10 07:43:00 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-10 07:59:21 +0100
commit24f998e4d23f70cbe2398007eb0afbbd685aa1eb (patch)
tree99b430701709e9122798a058cc0984a8be3e4bf3 /module/language/cps/compile-bytecode.scm
parent97301efca49180d17c1106359e1dfcb75fc3e63e (diff)
downloadguile-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.scm2
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))))