From b88a75d42f68c96d0e0952b27e3483cdd4384f5c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 4 Jan 2005 16:37:38 +0000
Subject: [PATCH]   * give error when property doesn't reference a method or
 field

---
 compiler/pdecvar.pas | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas
index 471313be33..e6d9e08494 100644
--- a/compiler/pdecvar.pas
+++ b/compiler/pdecvar.pas
@@ -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