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

* allow default parameters in equal_paras

Browse Source
This commit is contained in:
peter 2002-09-15 17:54:46 +00:00
parent 244a20c239
commit 007d85fa90
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/defbase.pas
View File

@ -386,7 +386,11 @@ implementation
def1:=TParaItem(def1.next); def1:=TParaItem(def1.next);
def2:=TParaItem(def2.next); def2:=TParaItem(def2.next);
end; end;
if (def1=nil) and (def2=nil) then { when both lists are empty then the parameters are equal. Also
when one list is empty and the other has a parameter with default
value assigned then the parameters are also equal }
if ((def1=nil) and ((def2=nil) or assigned(def2.defaultvalue))) or
((def2=nil) and ((def1=nil) or assigned(def1.defaultvalue))) then
equal_paras:=true equal_paras:=true
else else
equal_paras:=false; equal_paras:=false;
@ -1949,7 +1953,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.10 2002-09-08 11:10:17 carl Revision 1.11 2002-09-15 17:54:46 peter
* allow default parameters in equal_paras
Revision 1.10 2002/09/08 11:10:17 carl
* bugfix 2109 (bad imho, but only way) * bugfix 2109 (bad imho, but only way)
Revision 1.9 2002/09/07 15:25:02 peter Revision 1.9 2002/09/07 15:25:02 peter