paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 14:17:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ support the call instruction in the WebAssembly inline asm

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-07-20 21:29:48 +03:00
parent 258ad62c4d
commit d8340641cc
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/wasm32/rawasmtext.pas
View File

@ -717,6 +717,9 @@ Unit rawasmtext;
function twasmreader.HandlePlainInstruction: TWasmInstruction;
var
srsym: tsym;
srsymtable: TSymtable;
begin
result:=nil;
case actasmtoken of
@ -917,6 +920,40 @@ Unit rawasmtext;
end;
end;
a_call:
case actasmtoken of
AS_ID:
begin
AsmSearchSym(upper(Copy(actasmpattern,2,Length(actasmpattern)-1)),srsym,srsymtable);
if assigned(srsym) then
begin
case srsym.typ of
procsym:
begin
if Tprocsym(srsym).ProcdefList.Count>1 then
Message(asmr_w_calling_overload_func);
result.ops:=1;
result.operands[1].opr.typ:=OPR_SYMBOL;
result.operands[1].opr.symbol:=current_asmdata.RefAsmSymbol(tprocdef(tprocsym(srsym).ProcdefList[0]).mangledname,AT_FUNCTION);
Consume(AS_ID);
end;
else
Message(asmr_e_wrong_sym_type);
end;
end
else
Message1(sym_e_unknown_id,actasmpattern);
end;
else
begin
{ error: expected identifier }
result.Free;
result:=nil;
Consume(AS_ID);
end;
end;
else
internalerror(2024071401);
end;