paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add {$packrecords c} to all units importing Objective-C records since

Browse Source 
that's the alignment used by the system headers

git-svn-id: trunk@18115 -
This commit is contained in:
Jonas Maebe 2011-08-06 13:16:03 +00:00
parent 86b088f398
commit e0e326be8e
5 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/cocoaint/utils/cocoa-skel/src/CocoaAll.pas
View File

@ -3,6 +3,7 @@ unit CocoaAll;
{$mode delphi}
{$modeswitch objectivec1}
{$modeswitch cvar} { for "external" after the semi-colon with external vars }
{$packrecords c}
interface

1
packages/cocoaint/utils/cocoa-skel/src/CoreData.pas
View File

@ -1,6 +1,7 @@
{$mode delphi}
{$modeswitch cvar}
{$modeswitch objectivec1}
{$packrecords c}
unit CoreData;
interface
uses

3
packages/cocoaint/utils/cocoa-skel/src/WebKit.pas
View File

@ -3,6 +3,7 @@ unit WebKit;
{$mode delphi}
{$modeswitch cvar}
{$modeswitch objectivec1}
{$packrecords c}
interface
@ -66,4 +67,4 @@ implementation
{$undef USER_PATCHES}
{$undef IMPLEMENTATION}
end.
end.

3
packages/cocoaint/utils/uikit-skel/src/iPhoneAll.pas
View File

@ -3,6 +3,7 @@ unit iPhoneAll;
{$mode delphi}
{$modeswitch objectivec1}
{$modeswitch cvar}
{$packrecords c}
interface
@ -105,4 +106,4 @@ implementation
{$undef USER_PATCHES}
{$undef IMPLEMENTATION}
end.
end.

1
rtl/inc/objcbase.pp
View File

@ -18,6 +18,7 @@ unit objcbase;
{$ifdef FPC_HAS_FEATURE_OBJECTIVEC1}
{$modeswitch objectivec1}
{$packrecords c}
interface