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

* rework tprocsym.Find_procdef_byprocvardef so that its implementation can be used in a more generic manner

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-03-30 22:42:30 +02:00
parent f2305d1cee
commit 943da88dda
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/symsym.pas
View File

@ -128,11 +128,16 @@ interface
{ tprocsym }
tprocsym = class(tstoredsym)
protected type
tprocdefcomparer = function(pd:tprocdef;arg:tobject):tequaltype;
protected
FProcdefList : TFPObjectList;
FProcdefDerefList : TFPList;
fgenprocsymovlds : tfpobjectlist;
fgenprocsymovldsderefs : tfplist;
function find_procdef_with_comparer(comparer:tprocdefcomparer;arg:tobject):tprocdef;
class function compare_procvardef(pd:tprocdef;arg:tobject):tequaltype;static;
public
constructor create(const n : TSymStr);virtual;
constructor ppuload(ppufile:tcompilerppufile);
@ -1229,7 +1234,7 @@ implementation
end;
end;
function Tprocsym.Find_procdef_byprocvardef(d:Tprocvardef):Tprocdef;
function Tprocsym.find_procdef_with_comparer(comparer:tprocdefcomparer;arg:tobject):tprocdef;
var
i : longint;
bestpd,
@ -1249,7 +1254,7 @@ implementation
for i:=0 to ps.ProcdefList.Count-1 do
begin
pd:=tprocdef(ps.ProcdefList[i]);
eq:=proc_to_procvar_equal(pd,d,false);
eq:=comparer(pd,arg);
if eq>=te_convert_l1 then
begin
{ multiple procvars with the same equal level }
@ -1289,6 +1294,18 @@ implementation
end;
class function Tprocsym.compare_procvardef(pd:tprocdef;arg:tobject):tequaltype;
begin
result:=proc_to_procvar_equal(pd,tprocvardef(arg),false);
end;
function Tprocsym.Find_procdef_byprocvardef(d:Tprocvardef):Tprocdef;
begin
result:=find_procdef_with_comparer(@compare_procvardef,d);
end;
function Tprocsym.Find_procdef_assignment_operator(fromdef,todef:tdef;var besteq:tequaltype;isexplicit:boolean):Tprocdef;
var
paraidx, realparamcount,