paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-23 00:56:17 +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 begin
pl.addsym(sl_call,sym); pl.addsym(sl_call,sym);
end; end;
else
begin
Message1(parser_e_illegal_field_or_method,orgpattern);
result:=false;
end;
end; end;
end end
else else
begin begin
Message1(parser_e_illegal_field_or_method,pattern); Message1(parser_e_illegal_field_or_method,orgpattern);
result:=false; result:=false;
end; end;
consume(_ID); consume(_ID);
@ -123,14 +128,14 @@ implementation
def:=tfieldvarsym(sym).vartype.def; def:=tfieldvarsym(sym).vartype.def;
else else
begin begin
Message1(sym_e_illegal_field,pattern); Message1(sym_e_illegal_field,orgpattern);
result:=false; result:=false;
end; end;
end; end;
end end
else else
begin begin
Message1(sym_e_illegal_field,pattern); Message1(sym_e_illegal_field,orgpattern);
result:=false; result:=false;
end; end;
end end
@ -1307,7 +1312,10 @@ implementation
end. end.
{ {
$Log$ $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 * external vars are not regable
Revision 1.87 2004/12/07 16:11:52 peter Revision 1.87 2004/12/07 16:11:52 peter