Changeset 5373

Timestamp:

Oct 18, 2006, 1:12:11 AM (18 years ago)

Author:

Gary Byers

Message:

Allow closed-over addresses in conditional-form, NOT.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -4383 +4383 @@
         (x862-branch seg (x862-cd-true xfer))
         (with-crf-target () crf
-          (let* ((ea (x862-lexical-reference-ea form)))
+          (let* ((ea (x862-lexical-reference-ea form nil)))
             (if (and ea (memory-spec-p ea))
               (x862-compare-ea-to-nil seg crf xfer ea x86::x86-e-bits nil)
@@ -6831 +6831 @@
 (defx862 x862-not not (seg vreg xfer cc form)
   (multiple-value-bind (cr-bit true-p) (acode-condition-to-x86-cr-bit cc)
-    (let* ((ea (x862-lexical-reference-ea form)))
+    (let* ((ea (x862-lexical-reference-ea form nil)))
       (if (and ea (memory-spec-p ea))
         (x862-compare-ea-to-nil