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

+ introduced TWasmValidationStacks.label_types

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-31 02:45:43 +02:00
parent f3e667da42
commit 24315a7f28
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/aasmcpu.pas
View File

@ -101,6 +101,8 @@ uses
procedure PushCtrl(_opcode: tasmop; _in, _out: TWasmBasicTypeList);
function PopCtrl: TWasmControlFrame;
function label_types(const frame: TWasmControlFrame): TWasmBasicTypeList;
end;
twasmstruc_stack = class;
@ -531,6 +533,14 @@ uses
FCtrlStack.Pop;
end;
function TWasmValidationStacks.label_types(const frame: TWasmControlFrame): TWasmBasicTypeList;
begin
if frame.opcode=a_loop then
Result:=frame.start_types
else
Result:=frame.end_types;
end;
{ twasmstruc_stack }
function twasmstruc_stack.Get(Index: Integer): taicpu_wasm_structured_instruction;