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

* started implementing twasmreader.HandleBlockInstruction

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-07-16 14:48:55 +03:00
parent 152bb316c3
commit fd1fb255a6
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/wasm32/rawasmtext.pas
View File

@ -64,7 +64,7 @@ Unit rawasmtext;
procedure HandleInstruction;
procedure HandleFoldedInstruction;
function HandlePlainInstruction: TWasmInstruction;
procedure HandleBlockInstruction;virtual;abstract;
procedure HandleBlockInstruction;
public
function Assemble: tlinkedlist;override;
end;
@ -908,6 +908,29 @@ Unit rawasmtext;
end;
procedure twasmreader.HandleBlockInstruction;
var
instr: TWasmInstruction;
begin
if actasmtoken<>AS_OPCODE then
internalerror(2024071601);
case actopcode of
a_if,
a_block,
a_loop:
begin
instr:=TWasmInstruction.create(TWasmOperand);
instr.opcode:=actopcode;
Consume(AS_OPCODE);
{TODO: implement the rest}
internalerror(2024071699);
end;
else
internalerror(2024071602);
end;
end;
function twasmreader.Assemble: tlinkedlist;
begin
Message1(asmr_d_start_reading,'WebAssembly');