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

* simplified and integrated the WriteImportExport procedure into the case

Browse Source 
statement. Use similar statements to write the asm code for the export_name,
  like we use for the import_name directive.
This commit is contained in:
Nikolay Nikolov 2021-09-26 18:40:49 +03:00
parent 346b57e238
commit 1c8579da2e
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/aggas.pas
View File

@ -820,16 +820,6 @@ implementation
end; end;
procedure WriteImportExport(hp:tai_export_name);
var
symstypestr: string;
begin
Str(hp.symstype,symstypestr);
writer.AsmWriteLn(asminfo^.comment+'ait_importexport(extname='''+hp.extname+''', intname='''+hp.intname+''', symstype='+symstypestr+')');
writer.AsmWriteLn(#9'.export_name '+hp.intname+', '+hp.extname);
end;
procedure WriteTagType(hp: tai_tagtype); procedure WriteTagType(hp: tai_tagtype);
var var
wasm_basic_typ: TWasmBasicType; wasm_basic_typ: TWasmBasicType;
@ -1646,7 +1636,12 @@ implementation
ait_functype: ait_functype:
WriteFuncTypeDirective(tai_functype(hp)); WriteFuncTypeDirective(tai_functype(hp));
ait_export_name: ait_export_name:
WriteImportExport(tai_export_name(hp)); begin
writer.AsmWrite(#9'.export_name'#9);
writer.AsmWrite(tai_export_name(hp).intname);
writer.AsmWrite(', ');
writer.AsmWriteLn(tai_export_name(hp).extname);
end;
ait_tagtype: ait_tagtype:
WriteTagType(tai_tagtype(hp)); WriteTagType(tai_tagtype(hp));
ait_import_module: ait_import_module: