summaryrefslogtreecommitdiff
path: root/module/language/cps/cse.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-10 21:56:30 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-10 21:58:24 +0100
commitd355b42a3e7d1e314f2bd83d12d9d45e748e19e7 (patch)
treeb0e90dbee77cece66ca84af51ca34662e2d6b508 /module/language/cps/cse.scm
parent9222e4df4b3673da662785f71d0f3c289ba8a8a5 (diff)
downloadguile-d355b42a3e7d1e314f2bd83d12d9d45e748e19e7.tar.gz
Add optimizer and backend support for gc-pointer-ref
* module/language/cps/compile-bytecode.scm (compile-function): * module/language/cps/cse.scm (compute-equivalent-subexpressions): * module/language/cps/effects-analysis.scm: * module/language/cps/reify-primitives.scm (reify-primitives): * module/language/cps/slot-allocation.scm (compute-var-representations): * module/language/cps/specialize-primcalls.scm (specialize-primcalls): * module/language/cps/types.scm (gc-pointer-ref/immediate): (gc-pointer-set!/immediate): * module/system/vm/assembler.scm: Add support for pointer-ref.
Diffstat (limited to 'module/language/cps/cse.scm')
-rw-r--r--module/language/cps/cse.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/module/language/cps/cse.scm b/module/language/cps/cse.scm
index a7de7a623..5d97e563b 100644
--- a/module/language/cps/cse.scm
+++ b/module/language/cps/cse.scm
@@ -256,6 +256,7 @@ false. It could be that both true and false proofs are available."
((scm-set!/immediate p s x) (x <- scm-ref/immediate p s))
((word-set! p s i x) (x <- word-ref p s i))
((word-set!/immediate p s x) (x <- word-ref/immediate p s))
+ ((gc-pointer-set!/immediate p s x) (x <- gc-pointer-ref/immediate p s))
((s <- allocate-struct #f v n) (v <- struct-vtable #f s))
((s <- allocate-struct/immediate n v) (v <- struct-vtable #f s))