suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update for new #:alignment placement

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-10 13:26:53 -06:00
parent fa446f0187
commit 3e35c7c273
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/mred/private/wx/cocoa/finfo.rkt
View File

@ -16,10 +16,10 @@
(define _FSVolumeRefNum _int16) (define _FSVolumeRefNum _int16)
(define-cstruct _UTCDateTime (define-cstruct _UTCDateTime
#:alignment 2
([highSeconds _uint16] ([highSeconds _uint16]
[lowSeconds _uint32] [lowSeconds _uint32]
[fraction _uint16])) [fraction _uint16])
#:alignment 2)
(define-cstruct _Point (define-cstruct _Point
([v _short] ([v _short]
@ -28,22 +28,21 @@
(define _OSType _uint32) (define _OSType _uint32)
(define-cstruct _FileInfo (define-cstruct _FileInfo
#:alignment 2
([fileType _OSType] ([fileType _OSType]
[fileCreator _OSType] [fileCreator _OSType]
[finderFlags _uint16] [finderFlags _uint16]
[location _Point] [location _Point]
[reservedField _uint16])) [reservedField _uint16])
#:alignment 2)
(define-cstruct _FSPermissionInfo (define-cstruct _FSPermissionInfo
#:alignment 2
([userID _uint32] ([userID _uint32]
[groupID _uint32] [groupID _uint32]
[word _uint32] [word _uint32]
[fileSec _pointer])) [fileSec _pointer])
#:alignment 2)
(define-cstruct _FSCatalogInfo (define-cstruct _FSCatalogInfo
#:alignment 2
([nodeFlags _uint16] ([nodeFlags _uint16]
[volume _FSVolumeRefNum] [volume _FSVolumeRefNum]
[parentDirID _uint32] [parentDirID _uint32]
@ -60,7 +59,8 @@
[permissions _FSPermissionInfo] [permissions _FSPermissionInfo]
[finderInfo _FileInfo] [finderInfo _FileInfo]
;; .... 144 or 148 bytes total ;; .... 144 or 148 bytes total
)) )
#:alignment 2)
(define _FSRef _pointer) ; 80 bytes (define _FSRef _pointer) ; 80 bytes