summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-05-14 13:21:16 +0200
committerAndy Wingo <wingo@pobox.com>2018-05-14 14:04:59 +0200
commit77e7bea4c25431f39bb8ba7f900e35ef008ea00b (patch)
tree7130bb7993de87be32f1add75d084e6734bf21fd /module/language/cps/compile-bytecode.scm
parent667d808f5841dd99341f220b88f15ab5ed26390a (diff)
downloadguile-77e7bea4c25431f39bb8ba7f900e35ef008ea00b.tar.gz
Remove backend support for cached-module-box et al.
* module/language/cps/compile-bytecode.scm (compile-function): Remove unused assemblers for cached-module-box, cached-toplevel-box, and cache-current-module!. * module/language/cps/effects-analysis.scm (&cache): New memory kind. (cache-current-module!): Set &cache memory, not &box. (resolve-module, lookup-module, cache-ref, cache-set!): Add effect annotations. * module/system/vm/assembler.scm (emit-cache-current-module!) (emit-cached-toplevel-box, emit-cached-module-box): Remove assemblers. * module/system/vm/disassembler.scm (code-annotation, fold-code-range): Remove special cases for toplevel-box and module-box. * module/system/xref.scm (program-callee-rev-vars): Add a FIXME for the future.
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r--module/language/cps/compile-bytecode.scm6
1 files changed, 0 insertions, 6 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index fdf9953a5..fddf2fdd2 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -143,10 +143,6 @@
(emit-current-module asm (from-sp dst)))
(($ $primcall 'current-thread)
(emit-current-thread asm (from-sp dst)))
- (($ $primcall 'cached-toplevel-box (scope name bound?))
- (emit-cached-toplevel-box asm (from-sp dst) scope name bound?))
- (($ $primcall 'cached-module-box (mod name public? bound?) ())
- (emit-cached-module-box asm (from-sp dst) mod name public? bound?))
(($ $primcall 'define! #f (sym))
(emit-define! asm (from-sp dst) (from-sp (slot sym))))
(($ $primcall 'resolve (bound?) (name))
@@ -285,8 +281,6 @@
(define (compile-effect label exp k)
(match exp
(($ $values ()) #f)
- (($ $primcall 'cache-current-module! (scope) (mod))
- (emit-cache-current-module! asm (from-sp (slot mod)) scope))
(($ $primcall 'cache-set! key (val))
(emit-cache-set! asm key (from-sp (slot val))))
(($ $primcall 'scm-set! annotation (obj idx val))