Changeset 6448 for branches/x8664-call


Ignore:
Timestamp:
May 8, 2007, 12:34:33 PM (13 years ago)
Author:
gb
Message:

Get signedness right in ppc2-%immediate-store (exposed by .SPgetxlong deprecation.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/PPC/ppc2.lisp

    r6435 r6448  
    40764076      (let* ((size (logand #xf bits))
    40774077             (long-p (eq size 4))
    4078              (signed (logbitp 5 bits))
     4078             (signed (not (logbitp 5 bits)))
    40794079             (intval (if long-p (ppc2-long-constant-p val) (acode-fixnum-form-p val)))
    40804080             (offval (acode-fixnum-form-p offset))
Note: See TracChangeset for help on using the changeset viewer.