Changeset 12019 for release


Ignore:
Timestamp:
May 8, 2009, 7:30:17 PM (11 years ago)
Author:
rme
Message:

Merge r12018 (ppc %ff-call fix) to 1.3 branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/level-0/PPC/ppc-def.lisp

    r11587 r12019  
    602602                        (incf other-byte-offset 8)))
    603603                 (incf ngpr 2))
     604                ((:unsigned-byte :unsigned-halfword :unsigned-fullword)
     605                 (cond ((< ngpr 8)
     606                        (setf (%get-unsigned-long buf gpr-byte-offset) val
     607                              gpr-byte-offset (+ gpr-byte-offset 4)))
     608                       (t
     609                        (setf (%get-unsigned-long buf other-byte-offset) val
     610                              other-byte-offset (+ other-byte-offset 4))))
     611                 (incf ngpr))
    604612                (t
    605613                 (cond ((< ngpr 8)
     
    706714                (:address
    707715                 (setf (%get-ptr buf offset) val))
     716                ((:unsigned-byte :unsigned-halfword :unsigned-fullword)
     717                 (setf (%get-unsigned-long buf offset) val))
    708718                (t
    709719                 (if (typep spec 'unsigned-byte)
Note: See TracChangeset for help on using the changeset viewer.