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

* removed unused paravisible

Browse Source
This commit is contained in:
peter 2004-03-14 20:07:13 +00:00
parent df18c0aa82
commit d3f035df50
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncal.pas
View File

@ -46,7 +46,6 @@ interface
private private
{ number of parameters passed from the source, this does not include the hidden parameters } { number of parameters passed from the source, this does not include the hidden parameters }
paralength : smallint; paralength : smallint;
paravisible : boolean;
function gen_self_tree_methodpointer:tnode; function gen_self_tree_methodpointer:tnode;
function gen_self_tree:tnode; function gen_self_tree:tnode;
function gen_vmt_tree:tnode; function gen_vmt_tree:tnode;
@ -1421,13 +1420,8 @@ type
begin begin
if assigned(left) then if assigned(left) then
aktfilepos:=left.fileinfo; aktfilepos:=left.fileinfo;
if paravisible then CGMessage(parser_e_wrong_parameter_size);
begin symtableprocentry.write_parameter_lists(nil);
CGMessage(parser_e_wrong_parameter_size);
symtableprocentry.write_parameter_lists(nil);
end
else
CGMessage(parser_e_cant_access_private_member);
end; end;
end; end;
goto errorexit; goto errorexit;
@ -2046,7 +2040,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.230 2004-03-04 17:25:16 peter Revision 1.231 2004-03-14 20:07:13 peter
* removed unused paravisible
Revision 1.230 2004/03/04 17:25:16 peter
* fix check for parameter length when calling procvar, broken by the * fix check for parameter length when calling procvar, broken by the
previous default parameter for procvar fix previous default parameter for procvar fix