From 24f998e4d23f70cbe2398007eb0afbbd685aa1eb Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 10 Jan 2018 07:43:00 +0100 Subject: 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! --- module/language/cps/compile-bytecode.scm | 2 -- 1 file changed, 2 deletions(-) (limited to 'module/language/cps/compile-bytecode.scm') 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)))) -- cgit v1.2.3