[Openmcl-cvs-notifications] r7375 - /trunk/ccl/objc-bridge/objc-clos.lisp

[gb at clozure.com]

Author: gb
Date: Wed Oct 10 22:51:42 2007
New Revision: 7375

Log:
In BIT-OFFSET-TO-LOCATION, don't get confused by records/structs (whose =

alignment rarely matches their size.)

Modified:
    trunk/ccl/objc-bridge/objc-clos.lisp

Modified: trunk/ccl/objc-bridge/objc-clos.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/objc-bridge/objc-clos.lisp (original)
+++ trunk/ccl/objc-bridge/objc-clos.lisp Wed Oct 10 22:51:42 2007
@@ -600,7 +600,8 @@
   (ensure-foreign-type-bits foreign-type)
   (let* ((bits (foreign-type-bits foreign-type)))
     (if (or (=3D bits 1)
-            (not (=3D bits (foreign-type-alignment foreign-type))))
+            (and (not (typep foreign-type 'foreign-mem-block-type))
+                 (not (=3D bits (foreign-type-alignment foreign-type)))))
       bit-offset
       (ash bit-offset -3))))
 =