Changeset 336

Timestamp:

Jan 19, 2004, 4:37:34 PM (21 years ago)

Author:

Gary Byers

Message:

(Finally) try to handle odd poweropen struct alignment rules.
Pad :DBM_CONSTANT to naturally align double-float field, since unnatural
alignment is now the norm.

File:

• trunk/ccl/lib/db-io.lisp (modified) (3 diffs)

trunk/ccl/lib/db-io.lisp

@@ -432 +432 @@
   (:struct dbm-constant
    (:class (:unsigned 32))
+   (:pad (:unsigned 32))
    (:value
     (:union nil
@@ -1240 +1241 @@
   (let* ((total-bits 0)
          (overall-alignment 1)
+         #+poweropen-target
+         (first-field-p t)
          (kind (foreign-record-type-kind rtype)))
     (dolist (field parsed-fields)
@@ -1247 +1250 @@
              (alignment (if alt-align
                           (min natural-alignment alt-align)
+                          #+poweropen-target
+                          (if first-field-p
+                            (progn
+                              (setq first-field-p nil)
+                              natural-alignment)
+                            (min 32 natural-alignment))
+                          #-poweropen-target
                           natural-alignment)))
         (unless bits