paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 07:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow self parameter for normal procedures again (because Kylix allows

Browse Source 
it too) ("merged")
This commit is contained in:
Jonas Maebe 2001-10-01 13:38:44 +00:00
parent 6e0ab0a8a3
commit 2c87e58a77
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecsub.pas
View File

@ -169,9 +169,6 @@ implementation
end
else
begin
{ necessary to be able to catch this error later on in psub.pas }
if (idtoken = _SELF) then
include(aktprocdef.procoptions,po_containsself);
{ read identifiers }
sc:=consume_idlist;
{$ifdef fixLeaksOnError}
@ -1931,7 +1928,11 @@ const
end.
{
$Log$
Revision 1.37 2001-09-10 10:26:26 jonas
Revision 1.38 2001-10-01 13:38:44 jonas
* allow self parameter for normal procedures again (because Kylix allows
it too) ("merged")
Revision 1.37 2001/09/10 10:26:26 jonas
* fixed web bug 1593
* writing of procvar headers is more complete (mention var/const/out for
paras, add "of object" if applicable)

10
compiler/psub.pas
View File

@ -603,10 +603,6 @@ implementation
parse_proc_directives(pdflags);
dec(lexlevel);
{ explicit "self" parameters are not allowed for normal procedures (JM) }
if (po_containsself in aktprocsym.definition.procoptions) then
Message(parser_e_self_in_non_message_handler);
{ hint directives, these can be separated by semicolons here,
that need to be handled here with a loop (PFV) }
while try_consume_hintdirective(aktprocsym.symoptions) do
@ -845,7 +841,11 @@ implementation
end.
{
$Log$
Revision 1.37 2001-09-10 10:26:26 jonas
Revision 1.38 2001-10-01 13:38:45 jonas
* allow self parameter for normal procedures again (because Kylix allows
it too) ("merged")
Revision 1.37 2001/09/10 10:26:26 jonas
* fixed web bug 1593
* writing of procvar headers is more complete (mention var/const/out for
paras, add "of object" if applicable)