Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #77 from velter/patch-6

Browse Source 
Fix FPC regression
This commit is contained in:
Carlo Kok 2014-05-04 09:44:30 +02:00
commit 8f849ea3f8
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/uPSRuntime.pas
View File

@ -1822,15 +1822,15 @@ const
type
TDynArrayRecHeader = packed record
{$ifdef FPC}
refCnt : ptrint;
high : tdynarrayindex;
{$else}
{$ifdef CPUX64}
_Padding: LongInt; // Delphi XE2+ expects 16 byte align
{$endif}
/// dynamic array reference count (basic garbage memory mechanism)
refCnt: Longint;
{$ifdef FPC}
high: sizeint;
function length: sizeint; inline;
{$else}
/// length in element count
// - size in bytes = length*ElemSize
length: NativeInt;
@ -4231,7 +4231,6 @@ begin
{$ENDIF CPUX64}
darr^.header.refCnt:=1;
{$IFDEF FPC}
darr^.header.length := nil;
darr^.header.high := NewLength - 1;
{$ELSE}
darr^.header.length := NewLength;