mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Fix bug in struct-ref effects analysis

Browse source 
* module/language/cps/effects-analysis.scm (struct-ref): Fix bug in
  struct-ref effects analysis.
This commit is contained in:
Andy Wingo 2018-01-07 17:15:42 +01:00
parent 3cedc108d8
commit 8009359f6e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/effects-analysis.scm
View file

@ -407,7 +407,7 @@ the LABELS that are clobbered by the effects of LABEL."
((allocate-struct vt n) (&allocate &struct) &type-check)
((allocate-struct/immediate vt) (&allocate &struct) &type-check)
((make-struct/no-tail vt . _) (&allocate &struct) &type-check)
((struct-ref s n) (&read-object &vector) &type-check)
((struct-ref s n) (&read-object &struct) &type-check)
((struct-ref/immediate s) (&read-field &struct param) &type-check)
((struct-set! s n x) (&write-object &struct) &type-check)
((struct-set!/immediate s x) (&write-field &struct param) &type-check)