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

* fixed wrong calculation for checking default parameters

Browse Source
This commit is contained in:
peter 2004-11-29 21:40:54 +00:00
parent 9da80100a2
commit 7c144223ad
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/htypechk.pas
View File

@ -1495,7 +1495,7 @@ implementation
defaultparacnt:=pd.maxparacount-FParalength; defaultparacnt:=pd.maxparacount-FParalength;
if defaultparacnt>0 then if defaultparacnt>0 then
begin begin
if defaultparacnt>result^.firstparaidx then if defaultparacnt>result^.firstparaidx+1 then
internalerror(200401141); internalerror(200401141);
dec(result^.firstparaidx,defaultparacnt); dec(result^.firstparaidx,defaultparacnt);
end; end;
@ -1933,7 +1933,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.104 2004-11-15 23:35:31 peter Revision 1.105 2004-11-29 21:40:54 peter
* fixed wrong calculation for checking default parameters
Revision 1.104 2004/11/15 23:35:31 peter
* tparaitem removed, use tparavarsym instead * tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym * parameter order is now calculated from paranr value in tparavarsym