diff options
author | Andy Wingo <wingo@pobox.com> | 2018-05-14 13:21:16 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-05-14 14:04:59 +0200 |
commit | 77e7bea4c25431f39bb8ba7f900e35ef008ea00b (patch) | |
tree | 7130bb7993de87be32f1add75d084e6734bf21fd /module/language/cps/compile-bytecode.scm | |
parent | 667d808f5841dd99341f220b88f15ab5ed26390a (diff) | |
download | guile-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.scm | 6 |
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)) |