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

0: fix for prev

Browse Source
This commit is contained in:
evgeny-k 2023-11-15 16:33:50 +03:00
parent 597d68934e
commit d5057bb2c6
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/uPSRuntime.pas
View File

@ -10500,13 +10500,6 @@ begin
CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1;
if s[1] = #0 then inc(CurrStack);
MyList := TPSList.Create;
{$IFDEF CPUX64}
if p.Ext2 = nil then begin
MyList.Add(NewPPSVariantIFC(n, False));
FSelf := nil;
end;
{$ENDIF}
dx := MyList.Count;
for i := 2 to length(s) do
begin
MyList.Add(nil);
@ -10514,7 +10507,7 @@ begin
for i := length(s) downto 2 do
begin
n := Stack[CurrStack];
MyList[i - 2 + dx] := NewPPSVariantIFC(n, s[i] <> #0);
MyList[i - 2] := NewPPSVariantIFC(n, s[i] <> #0);
inc(CurrStack);
end;
if s[1] <> #0 then