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

+ introduced TWasmValidationStacks.PushCtrl

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-31 02:25:44 +02:00
parent 18c6e13f45
commit 4cc5cf4d0e
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/wasm32/aasmcpu.pas
View File

@ -98,6 +98,8 @@ uses
function PopVal(expect: TWasmBasicType): TWasmBasicType; function PopVal(expect: TWasmBasicType): TWasmBasicType;
procedure PushVals(vals: TWasmBasicTypeList); procedure PushVals(vals: TWasmBasicTypeList);
function PopVals(vals: TWasmBasicTypeList): TWasmBasicTypeList; function PopVals(vals: TWasmBasicTypeList): TWasmBasicTypeList;
procedure PushCtrl(_opcode: tasmop; _in, _out: TWasmBasicTypeList);
end; end;
twasmstruc_stack = class; twasmstruc_stack = class;
@ -499,6 +501,22 @@ uses
Result[I]:=PopVal(vals[I]); Result[I]:=PopVal(vals[I]);
end; end;
procedure TWasmValidationStacks.PushCtrl(_opcode: tasmop; _in, _out: TWasmBasicTypeList);
var
frame: TWasmControlFrame;
begin
FillChar(frame,SizeOf(frame),0);
with frame do
begin
opcode:=_opcode;
start_types:=Copy(_in);
end_types:=Copy(_out);
height:=FValueStack.Count;
unreachable:=False;
end;
FCtrlStack.Push(frame);
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;