[Openmcl-cvs-notifications] r14958 - /trunk/source/compiler/vinsn.lisp

[rme at clozure.com]

Author: rme
Date: Tue Aug 30 12:43:23 2011
New Revision: 14958

Log:
Make regs-set-in-vinsn-sequence work.

Modified:
    trunk/source/compiler/vinsn.lisp

Modified: trunk/source/compiler/vinsn.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/vinsn.lisp (original)
+++ trunk/source/compiler/vinsn.lisp Tue Aug 30 12:43:23 2011
@@ -493,8 +493,8 @@
       (if (typep element 'vinsn)
 	(if (vinsn-attribute-p element :call)
 	  (return (values #xffffffff #xffffffff))
-	  (setq gprs-set (logior (vinsn-gprs-set element))
-		fprs-set (logior (vinsn-fprs-set element))))))))
+	  (setq gprs-set (logior gprs-set (vinsn-gprs-set element))
+		fprs-set (logior fprs-set (vinsn-fprs-set element))))))))
       =

 ;;; Return T if any vinsn between START and END (exclusive) sets REG.
 (defun vinsn-sequence-sets-reg-p (start end reg)