summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-22 07:49:19 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-22 07:51:36 +0100
commitb09bbfe3c082548347125c0da52104c5bb8049e3 (patch)
tree2af169fce06684ad9d056ae0acd4c964c3dbefa2 /module/system
parentfcea9eeabd6adf144f7b6d8d7aa78e7ae42f9912 (diff)
downloadguile-b09bbfe3c082548347125c0da52104c5bb8049e3.tar.gz
Remove free-ref, free-set!
* libguile/vm-engine.c (free-ref, free-set!): Remove ops. * module/language/cps/effects-analysis.scm: * module/system/vm/assembler.scm: * module/system/vm/disassembler.scm (code-annotation): * module/language/cps/compile-bytecode.scm (compile-function): Remove support for free-ref / free-set!.
Diffstat (limited to 'module/system')
-rw-r--r--module/system/vm/assembler.scm2
-rw-r--r--module/system/vm/disassembler.scm2
2 files changed, 0 insertions, 4 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index da125119d..33645a28d 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -198,8 +198,6 @@
emit-bind-kwargs
emit-bind-rest
emit-make-closure
- emit-free-ref
- emit-free-set!
emit-current-module
emit-resolve
emit-define!
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index 8664039f0..286a0f1c5 100644
--- a/module/system/vm/disassembler.scm
+++ b/module/system/vm/disassembler.scm
@@ -275,8 +275,6 @@ address of that offset."
(list "~A" (builtin-index->name idx)))
(((or 'static-ref 'static-set!) _ target)
(list "~@Y" (dereference-scm target)))
- (((or 'free-ref 'free-set!) _ _ index)
- (list "free var ~a" index))
(('resolve-module dst name public)
(list "~a" (if (zero? public) "private" "public")))
(('toplevel-box _ var-offset mod-offset sym-offset bound?)