[Openmcl-cvs-notifications] r9103 - /trunk/source/compiler/X86/x862.lisp

[gb at clozure.com]

Author: gb
Date: Wed Apr  9 03:51:49 2008
New Revision: 9103

Log:
Shouldn't have worked yesterday ... if we're forcing BOUNDP checks on
special variable references whose results are ignored, force the use
of some register to hear the sound of one hand clapping.

Modified:
    trunk/source/compiler/X86/x862.lisp

Modified: trunk/source/compiler/X86/x862.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/X86/x862.lisp (original)
+++ trunk/source/compiler/X86/x862.lisp Wed Apr  9 03:51:49 2008
@@ -4366,6 +4366,7 @@
   (setq check-boundp (not *x862-reckless*))
   (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)
             (! ref-interrupt-level target))