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

Added static array support to GetArrayLength.

Browse Source
This commit is contained in:
Martijn Laan 2014-05-28 12:17:27 +02:00
parent b0c5d5fece
commit 4781459e35
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/uPSRuntime.pas
View File

@ -9076,12 +9076,15 @@ var
arr: TPSVariantIFC;
begin
Arr := NewTPSVariantIFC(Stack[Stack.Count-2], True);
if (arr.Dta = nil) or (arr.aType.BaseType <> btArray) then
if (arr.aType.BaseType <> btStaticArray) and ((arr.Dta = nil) or (arr.aType.BaseType <> btArray)) then
begin
Result := false;
exit;
end;
Stack.SetInt(-1, PSDynArrayGetLength(Pointer(arr.Dta^), arr.aType));
if arr.aType.BaseType = btStaticArray then
Stack.SetInt(-1, TPSTypeRec_StaticArray(arr.aType).Size)
else
Stack.SetInt(-1, PSDynArrayGetLength(Pointer(arr.Dta^), arr.aType));
Result := True;
end;