paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 01:51:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix procvars with default paras

Browse Source
This commit is contained in:
peter 2004-02-26 16:09:49 +00:00
parent c89ab11d7a
commit 2213f0433c
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ncal.pas
View File

@ -1329,6 +1329,19 @@ type
{ Compare parameters from right to left } { Compare parameters from right to left }
currpara:=tparaitem(procdefinition.Para.last); currpara:=tparaitem(procdefinition.Para.last);
{ Skip default parameters }
if not(po_varargs in procdefinition.procoptions) then
begin
{ ignore hidden parameters }
while assigned(currpara) and (currpara.is_hidden) do
currpara:=tparaitem(currpara.previous);
for i:=1 to procdefinition.maxparacount-paralength do
begin
if not assigned(currpara) then
internalerror(200402261);
currpara:=tparaitem(currpara.previous);
end;
end;
while assigned(currpara) and (currpara.is_hidden) do while assigned(currpara) and (currpara.is_hidden) do
currpara:=tparaitem(currpara.previous); currpara:=tparaitem(currpara.previous);
pt:=tcallparanode(left); pt:=tcallparanode(left);
@ -2028,7 +2041,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.228 2004-02-24 16:12:39 peter Revision 1.229 2004-02-26 16:09:49 peter
* fix procvars with default paras
Revision 1.228 2004/02/24 16:12:39 peter
* operator overload chooses rewrite * operator overload chooses rewrite
* overload choosing is now generic and moved to htypechk * overload choosing is now generic and moved to htypechk