Changeset 14684 for release/1.6
- Timestamp:
- Mar 19, 2011, 10:00:03 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.6/source/lib/db-io.lisp
r14453 r14684 1216 1216 `(,(logior encoded-type-named-transparent-union-ref alt-align-in-bytes-mask) 1217 1217 ,@(encode-name name) 1218 ,@(encode-ffi-field-list (ffi- union-fields u)))1218 ,@(encode-ffi-field-list (ffi-transparent-union-fields u))) 1219 1219 `(,(logior encoded-type-anon-transparent-union-ref alt-align-in-bytes-mask) 1220 ,@(encode-ffi-field-list (ffi- union-fields u))))))1220 ,@(encode-ffi-field-list (ffi-transparent-union-fields u)))))) 1221 1221 1222 1222 (defun encode-ffi-struct (s) … … 1367 1367 (let* ((u (cadr spec)) 1368 1368 (name (ffi-transparent-union-name u)) 1369 (alt-align-bytes-mask (ash (or (ffi- union-alt-alignment-bits u)1369 (alt-align-bytes-mask (ash (or (ffi-transparent-union-alt-alignment-bits u) 1370 1370 0) 1371 1371 (- 5 3))) )
Note: See TracChangeset
for help on using the changeset viewer.