From 8b5e617253d9474d52bad223e0c9fb84a1495f70 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 10 Sep 2010 13:26:53 -0600 Subject: [PATCH] update for new #:alignment placement original commit: 3e35c7c27319fddba2f973f7bc061ecd38b71186 --- collects/mred/private/wx/cocoa/finfo.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/mred/private/wx/cocoa/finfo.rkt b/collects/mred/private/wx/cocoa/finfo.rkt index 937f808a..4d841bbc 100644 --- a/collects/mred/private/wx/cocoa/finfo.rkt +++ b/collects/mred/private/wx/cocoa/finfo.rkt @@ -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