Changeset 7441 for branches/working-0710


Ignore:
Timestamp:
Oct 14, 2007, 6:32:41 PM (13 years ago)
Author:
wws
Message:

Fix the bug Gary introducted in x862-compare.

Now the following in compiler/arch.lisp no longer errors:

(assert (<= error-object-not-unused-max-type-error (* 2 error-type-error)))

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/compiler/X86/x862.lisp

    r7437 r7441  
    32863286                (! compare-reg-to-zero reg)
    32873287                (! compare-s32-constant reg (or js32 is32)))
    3288               (unless (or (and js32 (not is32)) (eq cr-bit x86::x86-e-bits))
     3288              (unless (or js32 (eq cr-bit x86::x86-e-bits))
    32893289                (setq cr-bit (x862-reverse-cr-bit cr-bit)))
    32903290              (^ cr-bit true-p))
Note: See TracChangeset for help on using the changeset viewer.