summaryrefslogtreecommitdiff
path: root/module/language/cps/effects-analysis.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/cps/effects-analysis.scm')
-rw-r--r--module/language/cps/effects-analysis.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm
index 829db4772..b3344ff7a 100644
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -380,6 +380,15 @@ the LABELS that are clobbered by the effects of LABEL."
((word-set!/immediate obj val) (match param
((ann . idx)
(&write-field
+ (annotation->memory-kind ann) idx))))
+ ((gc-pointer-ref/immediate obj) (match param
+ ((ann . idx)
+ (&read-field
+ (annotation->memory-kind ann) idx))))
+ ((gc-pointer-set!/immediate obj val)
+ (match param
+ ((ann . idx)
+ (&write-field
(annotation->memory-kind ann) idx)))))
;; Structs.