paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 13:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix crash with default parameters

Browse Source
This commit is contained in:
peter 2002-12-15 20:59:58 +00:00
parent 8939f85486
commit 5ebf9afd63
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncal.pas
View File

@ -1636,14 +1636,9 @@ type
if assigned(procdefinition) and if assigned(procdefinition) and
(paralength<procdefinition.maxparacount) then (paralength<procdefinition.maxparacount) then
begin begin
{ add default parameters, just read back the skipped pdc:=tparaitem(procdefinition.Para.last);
paras starting from firstPara.previous, when not available for i:=1 to paralength do
(all parameters are default) then start with the last pdc:=tparaitem(pdc.previous);
parameter and read backward (PFV) }
if not assigned(procs^.firstpara) then
pdc:=tparaitem(procs^.data.Para.last)
else
pdc:=tparaitem(procs^.firstPara.previous);
while assigned(pdc) do while assigned(pdc) do
begin begin
if not assigned(pdc.defaultvalue) then if not assigned(pdc.defaultvalue) then
@ -2192,7 +2187,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.118 2002-12-15 11:26:02 peter Revision 1.119 2002-12-15 20:59:58 peter
* fix crash with default parameters
Revision 1.118 2002/12/15 11:26:02 peter
* ignore vs_hidden parameters when choosing overloaded proc * ignore vs_hidden parameters when choosing overloaded proc
Revision 1.117 2002/12/11 22:42:28 peter Revision 1.117 2002/12/11 22:42:28 peter