Changeset 14958

Timestamp:

Aug 30, 2011, 10:43:23 AM (13 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• trunk/source/compiler/vinsn.lisp (modified) (1 diff)

trunk/source/compiler/vinsn.lisp

@@ -494 +494 @@
         (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.