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

* inverted the indices of TWasmValueStack, so that item 0 is top of stack

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-22 11:02:32 +02:00
parent fadf43a33b
commit 6aa49038a5
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/wasm32/aasmcpu.pas
View File

@ -347,17 +347,23 @@ uses
{ TWasmValueStack }
function TWasmValueStack.GetItems(AIndex: Integer): TWasmBasicType;
var
I: Integer;
begin
if (AIndex<Low(FValStack)) or (AIndex>High(FValStack)) then
I:=High(FValStack)-AIndex;
if (I<Low(FValStack)) or (I>High(FValStack)) then
internalerror(2024011702);
Result:=FValStack[AIndex];
Result:=FValStack[I];
end;
procedure TWasmValueStack.SetItems(AIndex: Integer; AValue: TWasmBasicType);
var
I: Integer;
begin
if (AIndex<Low(FValStack)) or (AIndex>High(FValStack)) then
I:=High(FValStack)-AIndex;
if (I<Low(FValStack)) or (I>High(FValStack)) then
internalerror(2024011703);
FValStack[AIndex]:=AValue;
FValStack[I]:=AValue;
end;
procedure TWasmValueStack.Push(wbt: TWasmBasicType);