paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 07:14:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix cycle starting for 2.6.4 release for powerpc64-linux

Browse Source 
git-svn-id: trunk@27610 -
This commit is contained in:
pierre 2014-04-20 16:28:52 +00:00
parent ee9197c3b2
commit 8193aff81d
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/rtti.inc
View File

@ -16,12 +16,19 @@
{ the tk* constants are now declared in system.inc }
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$define USE_PACKED}
{$endif}
{$ifdef VER2_6}
{$define USE_PACKED}
{$endif}
type
PRecordElement=^TRecordElement;
TRecordElement=
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifdef USE_PACKED}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
{$endif USE_PACKED}
record
TypeInfo: Pointer;
{$ifdef VER2_6}
@ -33,9 +40,9 @@ type
PRecordInfo=^TRecordInfo;
TRecordInfo=
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifdef USE_PACKED}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
{$endif USE_PACKED}
record
Size: Longint;
Count: Longint;
@ -44,9 +51,9 @@ type
PArrayInfo=^TArrayInfo;
TArrayInfo=
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifdef USE_PACKED}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
{$endif USE_PACKED}
record
Size: SizeInt;
ElCount: SizeInt;