paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid cyclic overloaded list for operators

Browse Source
This commit is contained in:
pierre 2000-04-03 14:50:05 +00:00
parent 7f4168fb0a
commit 6800fa46bc
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/symsym.inc
View File

@ -416,7 +416,7 @@
procedure tprocsym.deref;
var
t : ttoken;
last : pprocdef;
last,pd : pprocdef;
begin
resolvedef(pdef(definition));
if (definition^.proctypeoption=potype_operator) then
@ -428,8 +428,20 @@
if (name=overloaded_names[t]) then
begin
if assigned(overloaded_operators[t]) then
last^.nextoverloaded:=overloaded_operators[t]^.definition;
begin
pd:=overloaded_operators[t]^.definition;
{ test if not already in list, bug report by KC Wong PM }
while assigned(pd) do
if pd=last then
break
else
pd:=pd^.nextoverloaded;
if pd=last then
break;
last^.nextoverloaded:=overloaded_operators[t]^.definition;
end;
overloaded_operators[t]:=@self;
break;
end;
end;
end;
@ -2125,7 +2137,10 @@
{
$Log$
Revision 1.140 2000-03-01 00:03:10 pierre
Revision 1.141 2000-04-03 14:50:05 pierre
* avoid cyclic overloaded list for operators
Revision 1.140 2000/03/01 00:03:10 pierre
* fixes for locals in inlined procedures
fix for bug797
+ stabs generation for inlined paras and locals