mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

CSE allocate-struct fix

Browse source 
* module/language/cps/cse.scm (compute-equivalent-subexpressions):
  Fix handling of allocate-struct in tail position.
This commit is contained in:
Andy Wingo 2014-07-21 17:30:16 +02:00
parent 30411abf5c
commit 6fc634f8a3
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/language/cps/cse.scm
View file

@ -341,6 +341,7 @@ could be that both true and false proofs are available."
(('primcall (or 'allocate-struct 'allocate-struct/immediate) (('primcall (or 'allocate-struct 'allocate-struct/immediate)
vtable size) vtable size)
(match defs (match defs
(() #f) ;; allocate-struct in tail or kreceive position.
((struct) ((struct)
(add-def! `(primcall struct-vtable ,(subst-var struct)) (add-def! `(primcall struct-vtable ,(subst-var struct))
vtable)))) vtable))))