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

+ actually enable the parsing of WebAssembly inline asm instructions

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-07-16 14:53:56 +03:00
parent fd1fb255a6
commit d9e3afcb1d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/wasm32/rawasmtext.pas
View File

@ -567,7 +567,7 @@ Unit rawasmtext;
end; end;
end; end;
else else
{error}; internalerror(2024071603);
end; end;
end; end;
@ -724,7 +724,7 @@ Unit rawasmtext;
result:=TWasmInstruction.create(TWasmOperand); result:=TWasmInstruction.create(TWasmOperand);
result.opcode:=actopcode; result.opcode:=actopcode;
Consume(AS_OPCODE); Consume(AS_OPCODE);
case actopcode of case result.opcode of
{ instructions, which require 0 operands } { instructions, which require 0 operands }
a_nop, a_nop,
a_unreachable, a_unreachable,
@ -903,7 +903,7 @@ Unit rawasmtext;
end; end;
end; end;
else else
{error}; internalerror(2024071604);
end; end;
end; end;
@ -955,6 +955,9 @@ Unit rawasmtext;
case actasmtoken of case actasmtoken of
AS_END: AS_END:
break; { end assembly block } break; { end assembly block }
AS_OPCODE,
AS_LPAREN:
HandleInstruction;
else else
begin begin
Consume(actasmtoken); Consume(actasmtoken);