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

* fix for bug #890

Browse Source
This commit is contained in:
pierre 2000-03-27 11:57:22 +00:00
parent 7a861f6f57
commit 700f9ce852
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/psub.pas
View File

@ -1218,7 +1218,8 @@ begin
{ walk the procdef list } { walk the procdef list }
while (assigned(pd)) and (assigned(pd^.nextoverloaded)) do while (assigned(pd)) and (assigned(pd^.nextoverloaded)) do
begin begin
if not(m_repeat_forward in aktmodeswitches) or if (not(m_repeat_forward in aktmodeswitches) and
(aktprocsym^.definition^.para^.count=0)) or
(equal_paras(aktprocsym^.definition^.para,pd^.nextoverloaded^.para,false) and (equal_paras(aktprocsym^.definition^.para,pd^.nextoverloaded^.para,false) and
{ for operators equal_paras is not enough !! } { for operators equal_paras is not enough !! }
((aktprocsym^.definition^.proctypeoption<>potype_operator) or (optoken<>_ASSIGNMENT) or ((aktprocsym^.definition^.proctypeoption<>potype_operator) or (optoken<>_ASSIGNMENT) or
@ -1998,7 +1999,10 @@ end.
{ {
$Log$ $Log$
Revision 1.54 2000-03-23 22:17:51 pierre Revision 1.55 2000-03-27 11:57:22 pierre
* fix for bug 890
Revision 1.54 2000/03/23 22:17:51 pierre
* fix tf000008 bug * fix tf000008 bug
Revision 1.53 2000/03/16 16:41:13 pierre Revision 1.53 2000/03/16 16:41:13 pierre