update for new #:alignment placement
original commit: 3e35c7c27319fddba2f973f7bc061ecd38b71186
This commit is contained in:
parent
af897378f6
commit
8b5e617253
|
@ -16,10 +16,10 @@
|
|||
(define _FSVolumeRefNum _int16)
|
||||
|
||||
(define-cstruct _UTCDateTime
|
||||
#:alignment 2
|
||||
([highSeconds _uint16]
|
||||
[lowSeconds _uint32]
|
||||
[fraction _uint16]))
|
||||
[fraction _uint16])
|
||||
#:alignment 2)
|
||||
|
||||
(define-cstruct _Point
|
||||
([v _short]
|
||||
|
@ -28,22 +28,21 @@
|
|||
(define _OSType _uint32)
|
||||
|
||||
(define-cstruct _FileInfo
|
||||
#:alignment 2
|
||||
([fileType _OSType]
|
||||
[fileCreator _OSType]
|
||||
[finderFlags _uint16]
|
||||
[location _Point]
|
||||
[reservedField _uint16]))
|
||||
[reservedField _uint16])
|
||||
#:alignment 2)
|
||||
|
||||
(define-cstruct _FSPermissionInfo
|
||||
#:alignment 2
|
||||
([userID _uint32]
|
||||
[groupID _uint32]
|
||||
[word _uint32]
|
||||
[fileSec _pointer]))
|
||||
[fileSec _pointer])
|
||||
#:alignment 2)
|
||||
|
||||
(define-cstruct _FSCatalogInfo
|
||||
#:alignment 2
|
||||
([nodeFlags _uint16]
|
||||
[volume _FSVolumeRefNum]
|
||||
[parentDirID _uint32]
|
||||
|
@ -60,7 +59,8 @@
|
|||
[permissions _FSPermissionInfo]
|
||||
[finderInfo _FileInfo]
|
||||
;; .... 144 or 148 bytes total
|
||||
))
|
||||
)
|
||||
#:alignment 2)
|
||||
|
||||
(define _FSRef _pointer) ; 80 bytes
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user