Changeset 14222
- Timestamp:
- Aug 26, 2010, 3:23:35 PM (9 years ago)
- Location:
- trunk/source
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/compiler/ARM/arm-backend.lisp
r14171 r14222 286 286 :signed-char t 287 287 :struct-by-value t 288 :natural-alignment t 288 289 :prepend-underscore nil) 289 290 :ff-call-expand-function … … 301 302 :attributes '(:bits-per-word 32 302 303 :signed-char nil 304 :natural-alignment t 303 305 :struct-by-value t) 304 306 :ff-call-expand-function -
trunk/source/lib/foreign-types.lisp
r14171 r14222 1095 1095 (first-field-p t) 1096 1096 (attributes (ftd-attributes *target-ftd*)) 1097 (poweropen-alignment (getf attributes :poweropen-alignment))) 1098 1097 (poweropen-alignment (getf attributes :poweropen-alignment)) 1098 (bits-per-word (getf attributes :bits-per-word)) 1099 (use-natural-alignment (getf attributes :natural-alignment))) 1100 1099 1101 (dolist (field fields) 1100 1102 (destructuring-bind (var type &optional bits) field … … 1111 1113 natural-alignment) 1112 1114 (min 32 natural-alignment)) 1113 natural-alignment))) 1115 (if use-natural-alignment 1116 natural-alignment 1117 (min bits-per-word natural-alignment))))) 1114 1118 (parsed-field 1115 1119 (make-foreign-record-field :type field-type
Note: See TracChangeset
for help on using the changeset viewer.