Changeset 9105 for release

Timestamp:

Apr 9, 2008, 8:36:22 AM (12 years ago)

Author:

gb

Message:

apply r9103,r9104 from trunk

Location:

release/1.2/source/compiler

Files:

• PPC/ppc2.lisp (modified) (1 diff)
• X86/x862.lisp (modified) (1 diff)

release/1.2/source/compiler/PPC/ppc2.lisp

@@ -4323 +4323 @@
   (with-ppc-local-vinsn-macros (seg vreg xfer)
     (when (or check-boundp vreg)
-        (if (eq sym '*interrupt-level*)
+      (unless vreg (setq vreg ($ ppc::arg_z)))
+      (if (eq sym '*interrupt-level*)
           (ensuring-node-target (target vreg)
             (! ref-interrupt-level target))

release/1.2/source/compiler/X86/x862.lisp

@@ -4367 +4367 @@
   (with-x86-local-vinsn-macros (seg vreg xfer)
     (when (or check-boundp vreg)
+      (unless vreg (setq vreg ($ x8664::arg_z)))
       (if (eq sym '*interrupt-level*)
           (ensuring-node-target (target vreg)