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

+ partially implemented the creation of symbols for SYMTAB_FUNCTION entries

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-27 15:14:21 +02:00
parent a6d4374f10
commit c293d0b729
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/ogwasm.pas
View File

@ -3296,7 +3296,38 @@ implementation
objsym.offset:=SymOffset;
objsym.size:=SymSize;
end;
byte(SYMTAB_FUNCTION),
byte(SYMTAB_FUNCTION):
if (SymFlags and WASM_SYM_UNDEFINED)<>0 then
begin
if not FuncTypes[SymIndex].IsImport then
begin
InputError('WASM_SYM_UNDEFINED set on a SYMTAB_FUNCTION symbol, that is not an import');
exit;
end;
if (SymFlags and WASM_SYM_EXPLICIT_NAME)<>0 then
begin
Writeln('Alias: ', SymName, ' -> ', FuncTypes[SymIndex].ImportModName, '.', FuncTypes[SymIndex].ImportName);
{todo...}
end
else
begin
objsym:=ObjData.CreateSymbol(FuncTypes[SymIndex].ImportName);
objsym.bind:=AB_EXTERNAL;
objsym.typ:=AT_FUNCTION;
objsym.objsection:=nil;
objsym.offset:=0;
objsym.size:=0;
end;
end
else
begin
if FuncTypes[SymIndex].IsImport then
begin
InputError('WASM_SYM_UNDEFINED not set on a SYMTAB_FUNCTION symbol, that is an import');
exit;
end;
{todo...}
end;
byte(SYMTAB_GLOBAL),
byte(SYMTAB_SECTION),
byte(SYMTAB_EVENT),