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

+ handle exports in the llvm-mc wasm32 assembler writer

Browse Source 
git-svn-id: branches/wasm@46994 -
This commit is contained in:
nickysn 2020-09-28 23:13:51 +00:00
parent 697bd6d586
commit ceeb614473
1 changed files with 12 additions and 3 deletions

15
compiler/aggas.pas
View File

@ -836,6 +836,17 @@ implementation
end;
writer.AsmWriteLn(')');
end;
procedure WriteImportExport(hp:tai_impexp);
var
symstypestr: string;
begin
Str(hp.symstype,symstypestr);
writer.AsmWriteLn(asminfo^.comment+'ait_importexport(extname='''+hp.extname+''', intname='''+hp.intname+''', extmodule='''+hp.extmodule+''', symstype='+symstypestr+')');
if hp.extmodule='' then
writer.AsmWriteLn(#9'.export_name '+hp.intname+', '+hp.extname);
end;
{$endif WASM}
var
@ -1603,9 +1614,7 @@ implementation
ait_functype:
WriteFuncType(tai_functype(hp));
ait_importexport:
begin
writer.AsmWriteLn(asminfo^.comment+'TODO: ait_importexport');
end;
WriteImportExport(tai_impexp(hp));
{$endif WASM}
else