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

* paralength is private again

Browse Source
This commit is contained in:
peter 2003-12-08 22:37:28 +00:00
parent b3bc562249
commit 57b4d5a0b9
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncal.pas
View File

@ -55,6 +55,8 @@ interface
tcallnode = class(tbinarynode)
private
{ number of parameters passed from the source, this does not include the hidden parameters }
paralength : smallint;
paravisible : boolean;
function candidates_find:pcandidate;
procedure candidates_free(procs:pcandidate);
@ -88,8 +90,6 @@ interface
procdefinitionderef : tderef;
{ tree that contains the pointer to the object for this method }
methodpointer : tnode;
{ number of parameters passed from the source, this does not include the hidden parameters }
paralength : smallint;
{ inline function body }
inlinecode : tnode;
{ varargs tparaitems }
@ -2698,7 +2698,10 @@ begin
end.
{
$Log$
Revision 1.211 2003-12-08 16:34:23 peter
Revision 1.212 2003-12-08 22:37:28 peter
* paralength is private again
Revision 1.211 2003/12/08 16:34:23 peter
* varargspara is left-right, so adding paraitems needs insert
instead of concat