paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compiler cycling starting from 3.0.0 powerpc64 release compiler

Browse Source 
git-svn-id: trunk@34431 -
This commit is contained in:
pierre 2016-09-05 09:36:43 +00:00
parent d876d1d1e7
commit 97c2067832
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/dynarr.inc
View File

@ -28,6 +28,15 @@ type
tdynarraytypedata = tdynarraytypedata =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
{$else}
{$ifdef powerpc64}
{ 3.0.0 does not align elType field on a 8-byte boundary,
thus use packed also in this case }
{$ifdef VER3_0_0}
packed
{$endif VER"_0_0}
{$endif powerpc64}
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
elSize : SizeUInt; elSize : SizeUInt;