paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:29:33 +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;
{$else}
TPoint =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
@ -69,7 +69,7 @@ type
TRect = Windows.TRect;
{$else}
TRect =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
@ -81,7 +81,7 @@ type
PRect = ^TRect;
TSize =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
@ -93,7 +93,7 @@ type
SIZE = TSize;
TSmallPoint =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
@ -192,7 +192,7 @@ type
Region = Pointer;
_FILETIME =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
@ -204,7 +204,7 @@ type
PFileTime = ^TFileTime;
tagSTATSTG =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
@ -399,8 +399,8 @@ end;
end.
{
$Log$
Revision 1.7 2004-10-21 22:24:01 florian
* targets requiring proper alignment doesn't pack tpoint and friends anymore
Revision 1.8 2004-10-22 05:51:15 florian
* corrected last commit
Revision 1.6 2004/01/10 19:00:20 michael
+ Compatibility checks and code reformatting