paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:09:31 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aggas.pas
View File

@ -836,6 +836,17 @@ implementation
end; end;
writer.AsmWriteLn(')'); writer.AsmWriteLn(')');
end; 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} {$endif WASM}
var var
@ -1603,9 +1614,7 @@ implementation
ait_functype: ait_functype:
WriteFuncType(tai_functype(hp)); WriteFuncType(tai_functype(hp));
ait_importexport: ait_importexport:
begin WriteImportExport(tai_impexp(hp));
writer.AsmWriteLn(asminfo^.comment+'TODO: ait_importexport');
end;
{$endif WASM} {$endif WASM}
else else