paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 16:20:55 +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; symstypestr: string;
begin begin
Str(hp.symstype,symstypestr); Str(hp.symstype,symstypestr);
writer.AsmWriteLn(asminfo^.comment+'ait_importexport(extname='''+hp.extname+''', intname='''+hp.intname+''', extmodule='''+hp.extmodule+''', symstype='+symstypestr+')'); writer.AsmWriteLn(asminfo^.comment+'ait_importexport(extname='''+hp.extname+''', intname='''+hp.intname+''', symstype='+symstypestr+')');
if hp.extmodule='' then writer.AsmWriteLn(#9'.export_name '+hp.intname+', '+hp.extname);
writer.AsmWriteLn(#9'.export_name '+hp.intname+', '+hp.extname);
end; end;

10
compiler/wasm32/aasmcpu.pas
View File

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