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

* give error when property doesn't reference a method or field

Browse Source
This commit is contained in:
peter 2005-01-04 16:37:38 +00:00
parent d111c8130a
commit b88a75d42f
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pdecvar.pas
View File

@ -91,11 +91,16 @@ implementation
begin
pl.addsym(sl_call,sym);
end;
else
begin
Message1(parser_e_illegal_field_or_method,orgpattern);
result:=false;
end;
end;
end
else
begin
Message1(parser_e_illegal_field_or_method,pattern);
Message1(parser_e_illegal_field_or_method,orgpattern);
result:=false;
end;
consume(_ID);
@ -123,14 +128,14 @@ implementation
def:=tfieldvarsym(sym).vartype.def;
else
begin
Message1(sym_e_illegal_field,pattern);
Message1(sym_e_illegal_field,orgpattern);
result:=false;
end;
end;
end
else
begin
Message1(sym_e_illegal_field,pattern);
Message1(sym_e_illegal_field,orgpattern);
result:=false;
end;
end
@ -1307,7 +1312,10 @@ implementation
end.
{
$Log$
Revision 1.88 2004-12-11 15:19:08 jonas
Revision 1.89 2005-01-04 16:37:38 peter
* give error when property doesn't reference a method or field
Revision 1.88 2004/12/11 15:19:08 jonas
* external vars are not regable
Revision 1.87 2004/12/07 16:11:52 peter