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

0: Fix from Raymond van Venetie for Free Pascal arrays

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@174 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2009-09-14 12:21:12 +00:00
parent 0a68d2cdeb
commit 340ddb8528
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSRuntime.pas
View File

@ -1856,7 +1856,7 @@ begin
t := TPSTypeRec_Array(aType).ArrayType;
elsize := t.RealSize;
darr := Pointer(IPointer(darr) + PointerSize);
l := Longint(darr^);
l := Longint(darr^) {$IFDEF FPC}+1{$ENDIF};
darr := Pointer(IPointer(darr) + PointerSize);
case t.BaseType of
btString, {$IFNDEF PS_NOWIDESTRING}