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

* don't give warning for property as unknwon proc directive

Browse Source
This commit is contained in:
peter 2004-10-24 13:48:50 +00:00
parent d24241b008
commit 34756dfe4a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecsub.pas
View File

@ -1682,7 +1682,8 @@ const
begin
{ parsing a procvar type the name can be any
next variable !! }
if (pdflags * [pd_procvar,pd_object])=[] then
if ((pdflags * [pd_procvar,pd_object])=[]) and
not(idtoken=_PROPERTY) then
Message1(parser_w_unknown_proc_directive_ignored,name);
exit;
end;
@ -2267,7 +2268,10 @@ const
end.
{
$Log$
Revision 1.195 2004-10-24 11:44:28 peter
Revision 1.196 2004-10-24 13:48:50 peter
* don't give warning for property as unknwon proc directive
Revision 1.195 2004/10/24 11:44:28 peter
* small regvar fixes
* loadref parameter removed from concatcopy,incrrefcount,etc