diff options
Diffstat (limited to 'module/language/cps/effects-analysis.scm')
-rw-r--r-- | module/language/cps/effects-analysis.scm | 9 |
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. |