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

* fix counting of parameters when loading ppu

Browse Source
This commit is contained in:
peter 2003-10-21 18:14:49 +00:00
parent 921502cce3
commit 34d0dff840
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/symdef.pas
View File

@ -3240,6 +3240,13 @@ implementation
hp.parasym:=tvarsym(hp.parasymderef.resolve); hp.parasym:=tvarsym(hp.parasymderef.resolve);
{ connect parasym to paraitem } { connect parasym to paraitem }
tvarsym(hp.parasym).paraitem:=hp; tvarsym(hp.parasym).paraitem:=hp;
{ Don't count hidden parameters }
if (not hp.is_hidden) then
begin
if not assigned(hp.defaultvalue) then
inc(minparacount);
inc(maxparacount);
end;
hp:=TParaItem(hp.next); hp:=TParaItem(hp.next);
end; end;
end; end;
@ -3278,13 +3285,6 @@ implementation
ppufile.getderef(hp.parasymderef); ppufile.getderef(hp.parasymderef);
hp.parasym:=nil; hp.parasym:=nil;
hp.is_hidden:=boolean(ppufile.getbyte); hp.is_hidden:=boolean(ppufile.getbyte);
{ Don't count hidden parameters }
if (not hp.is_hidden) then
begin
if not assigned(hp.defaultvalue) then
inc(minparacount);
inc(maxparacount);
end;
{ Parameters are stored left to right in both ppu and memory } { Parameters are stored left to right in both ppu and memory }
Para.concat(hp); Para.concat(hp);
end; end;
@ -5884,7 +5884,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.181 2003-10-17 15:08:34 peter Revision 1.182 2003-10-21 18:14:49 peter
* fix counting of parameters when loading ppu
Revision 1.181 2003/10/17 15:08:34 peter
* commented out more obsolete constants * commented out more obsolete constants
Revision 1.180 2003/10/17 14:52:07 peter Revision 1.180 2003/10/17 14:52:07 peter