Changeset 14178


Ignore:
Timestamp:
Aug 13, 2010, 10:12:41 AM (9 years ago)
Author:
gb
Message:

Darwin/ARM abi changes (no natural alignment for 64-bit arguments.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/ffi-darwinarm.lisp

    r14171 r14178  
    122122                             '%get-single-float-from-double-ptr)
    123123                            ((typep argtype 'foreign-double-float-type)
    124                              (when (logtest offset 4)
    125                                (incf offset 4))
    126124                             (setq nextoffset (+ offset 8))
    127125                             '%get-double-float)
     
    129127                                  (= (foreign-integer-type-bits argtype) 64)
    130128                                  (foreign-integer-type-signed argtype))
    131                              (when (logtest offset 4)
    132                                (incf offset 4))
    133129                             (setq nextoffset (+ offset 8))
    134130                             '%%get-signed-longlong)
     
    136132                                  (= (foreign-integer-type-bits argtype) 64)
    137133                                  (not (foreign-integer-type-signed argtype)))
    138                              (when (logtest offset 4)
    139                                (incf offset 4))
    140134                             (setq nextoffset (+ offset 8))
    141135                             '%%get-unsigned-longlong)
Note: See TracChangeset for help on using the changeset viewer.