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

* crash fix for default para when all parameters were omitted

Browse Source
This commit is contained in:
peter 2000-08-08 19:23:28 +00:00
parent 1a0277d7b0
commit beefc6ac92
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/tccal.pas
View File

@ -1065,8 +1065,13 @@ implementation
(paralength<p^.procdefinition^.maxparacount) then
begin
{ add default parameters, just read back the skipped
paras starting from firstpara^.previous }
pdc:=pparaitem(procs^.firstpara^.previous);
paras starting from firstpara^.previous, when not available
(all parameters are default) then start with the last
parameter and read backward (PFV) }
if not assigned(procs^.firstpara) then
pdc:=pparaitem(procs^.data^.para^.last)
else
pdc:=pparaitem(procs^.firstpara^.previous);
while assigned(pdc) do
begin
if not assigned(pdc^.defaultvalue) then
@ -1248,7 +1253,10 @@ implementation
end.
{
$Log$
Revision 1.4 2000-08-06 19:39:28 peter
Revision 1.5 2000-08-08 19:23:28 peter
* crash fix for default para when all parameters were omitted
Revision 1.4 2000/08/06 19:39:28 peter
* default parameters working !
Revision 1.3 2000/07/13 12:08:28 michael