paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:01:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected last commit

Browse Source
This commit is contained in:
florian 2004-10-22 05:51:15 +00:00
parent 7c4e83bcba
commit 20c7f70af6
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/types.pp
View File

@ -54,7 +54,7 @@ type
TPoint = Windows.TPoint; TPoint = Windows.TPoint;
{$else} {$else}
TPoint = TPoint =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
@ -69,7 +69,7 @@ type
TRect = Windows.TRect; TRect = Windows.TRect;
{$else} {$else}
TRect = TRect =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
@ -81,7 +81,7 @@ type
PRect = ^TRect; PRect = ^TRect;
TSize = TSize =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
@ -93,7 +93,7 @@ type
SIZE = TSize; SIZE = TSize;
TSmallPoint = TSmallPoint =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
@ -192,7 +192,7 @@ type
Region = Pointer; Region = Pointer;
_FILETIME = _FILETIME =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
@ -204,7 +204,7 @@ type
PFileTime = ^TFileTime; PFileTime = ^TFileTime;
tagSTATSTG = tagSTATSTG =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
@ -399,8 +399,8 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.7 2004-10-21 22:24:01 florian Revision 1.8 2004-10-22 05:51:15 florian
* targets requiring proper alignment doesn't pack tpoint and friends anymore * corrected last commit
Revision 1.6 2004/01/10 19:00:20 michael Revision 1.6 2004/01/10 19:00:20 michael
+ Compatibility checks and code reformatting + Compatibility checks and code reformatting