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

+ introduced TWasmValueStack for tracking the state of the WebAssembly stack. Not used, yet, but will be in the future.

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-17 11:21:48 +02:00
parent 04a077707c
commit 42f447257d
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/wasm32/aasmcpu.pas
View File

@ -41,6 +41,20 @@ uses
O_MOV_DEST = 0; O_MOV_DEST = 0;
type type
{ TWasmValueStack }
TWasmValueStack = class
private
FValStack: array of TWasmBasicType;
function GetItems(AIndex: Integer): TWasmBasicType;
procedure SetItems(AIndex: Integer; AValue: TWasmBasicType);
public
procedure Push(wbt: TWasmBasicType);
function Pop: TWasmBasicType;
property Items[AIndex: Integer]: TWasmBasicType read GetItems write SetItems; default;
end;
twasmstruc_stack = class; twasmstruc_stack = class;
TAsmMapFuncResultType = (amfrtNoChange, amfrtNewAi, amfrtNewList, amfrtDeleteAi); TAsmMapFuncResultType = (amfrtNoChange, amfrtNewAi, amfrtNewList, amfrtDeleteAi);
TAsmMapFuncResult = record TAsmMapFuncResult = record
@ -302,6 +316,36 @@ uses
function wasm_convert_first_item_to_structured(srclist: TAsmList): tai; forward; function wasm_convert_first_item_to_structured(srclist: TAsmList): tai; forward;
procedure map_structured_asmlist_inner(l: TAsmList; f: TAsmMapFunc; blockstack: twasmstruc_stack); forward; procedure map_structured_asmlist_inner(l: TAsmList; f: TAsmMapFunc; blockstack: twasmstruc_stack); forward;
{ TWasmValueStack }
function TWasmValueStack.GetItems(AIndex: Integer): TWasmBasicType;
begin
if (AIndex<Low(FValStack)) or (AIndex>High(FValStack)) then
internalerror(2024011702);
Result:=FValStack[AIndex];
end;
procedure TWasmValueStack.SetItems(AIndex: Integer; AValue: TWasmBasicType);
begin
if (AIndex<Low(FValStack)) or (AIndex>High(FValStack)) then
internalerror(2024011703);
FValStack[AIndex]:=AValue;
end;
procedure TWasmValueStack.Push(wbt: TWasmBasicType);
begin
SetLength(FValStack,Length(FValStack)+1);
FValStack[High(FValStack)]:=wbt;
end;
function TWasmValueStack.Pop: TWasmBasicType;
begin
if Length(FValStack)=0 then
internalerror(2024011701);
Result:=FValStack[High(FValStack)];
SetLength(FValStack,Length(FValStack)-1);
end;
{ twasmstruc_stack } { twasmstruc_stack }
function twasmstruc_stack.Get(Index: Integer): taicpu_wasm_structured_instruction; function twasmstruc_stack.Get(Index: Integer): taicpu_wasm_structured_instruction;