paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-15 21:27:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ignore hidden parameters when default parameters are used

Browse Source
This commit is contained in:
peter 2004-01-14 17:53:58 +00:00
parent 60814ccb16
commit 2063100f51
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ncal.pas
View File

@ -1244,8 +1244,15 @@ type
hp^.firstpara:=tparaitem(pd.Para.last);
if not(po_varargs in pd.procoptions) then
begin
{ ignore hidden parameters }
while assigned(hp^.firstpara) and (hp^.firstpara.is_hidden) do
hp^.firstpara:=tparaitem(hp^.firstpara.previous);
for i:=1 to pd.maxparacount-paralength do
hp^.firstpara:=tparaitem(hp^.firstPara.previous);
begin
if not assigned(hp^.firstpara) then
internalerror(200401141);
hp^.firstpara:=tparaitem(hp^.firstPara.previous);
end;
end;
end;
@ -2176,15 +2183,17 @@ type
inc(i);
currpara:=tparaitem(currpara.next);
end;
while assigned(currpara) and
currpara.is_hidden do
while assigned(currpara) and currpara.is_hidden do
currpara:=tparaitem(currpara.next);
while assigned(currpara) do
begin
if not assigned(currpara.defaultvalue) then
internalerror(200212142);
left:=ccallparanode.create(genconstsymtree(tconstsym(currpara.defaultvalue)),left);
currpara:=tparaitem(currpara.next);
{ Ignore vs_hidden parameters }
repeat
currpara:=tparaitem(currpara.next);
until (not assigned(currpara)) or (not currpara.is_hidden);
end;
end;
@ -2706,7 +2715,10 @@ begin
end.
{
$Log$
Revision 1.218 2004-01-11 23:56:19 daniel
Revision 1.219 2004-01-14 17:53:58 peter
* ignore hidden parameters when default parameters are used
Revision 1.218 2004/01/11 23:56:19 daniel
* Experiment: Compress strings to save memory
Did not save a single byte of mem; clearly the core size is boosted by
temporary memory usage...