Changeset 7375


Ignore:
Timestamp:
Oct 11, 2007, 2:51:42 AM (13 years ago)
Author:
gb
Message:

In BIT-OFFSET-TO-LOCATION, don't get confused by records/structs (whose
alignment rarely matches their size.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/objc-bridge/objc-clos.lisp

    r7301 r7375  
    601601  (let* ((bits (foreign-type-bits foreign-type)))
    602602    (if (or (= bits 1)
    603             (not (= bits (foreign-type-alignment foreign-type))))
     603            (and (not (typep foreign-type 'foreign-mem-block-type))
     604                 (not (= bits (foreign-type-alignment foreign-type)))))
    604605      bit-offset
    605606      (ash bit-offset -3))))
Note: See TracChangeset for help on using the changeset viewer.