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

- removed unused constructor of tai_impexp, as well as unused member variable extmodule

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-26 18:29:28 +03:00
parent 79f60923ba
commit 2940d0f45f
2 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aggas.pas
View File

@ -825,9 +825,8 @@ implementation
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);
writer.AsmWriteLn(asminfo^.comment+'ait_importexport(extname='''+hp.extname+''', intname='''+hp.intname+''', symstype='+symstypestr+')');
writer.AsmWriteLn(#9'.export_name '+hp.intname+', '+hp.extname);
end;

10
compiler/wasm32/aasmcpu.pas
View File

@ -90,10 +90,8 @@ uses
tai_impexp = class(tai)
extname : ansistring; // external name
intname : ansistring; // internal name
extmodule : ansistring; // external unit name
symstype: TImpExpType;
constructor create(const aextname, aintname: ansistring; asymtype: timpexptype); overload;
constructor create(const aextmodule, aextname, aintname: ansistring; asymtype: timpexptype); overload;
constructor create(const aextname, aintname: ansistring; asymtype: timpexptype);
end;
// local variable declaration
@ -212,15 +210,9 @@ uses
constructor tai_impexp.create(const aextname, aintname: ansistring;
asymtype: timpexptype);
begin
create('', aextname, aintname, asymtype);;
end;
constructor tai_impexp.create(const aextmodule, aextname, aintname: ansistring; asymtype: timpexptype);
begin
inherited create;
typ := ait_importexport;
extmodule := aextmodule;
extname := aextname;
intname := aintname;
symstype:= asymtype;