浏览代码

* fixed static class check for properties

peter 22 年之前
父节点
当前提交
cb16846e3b
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/pexpr.pas

+ 5 - 2
compiler/pexpr.pas

@@ -1385,7 +1385,7 @@ implementation
                   begin
                   begin
                     { access to property in a method }
                     { access to property in a method }
                     { are we in a class method ? }
                     { are we in a class method ? }
-                    if (srsym.owner.symtabletype=objectsymtable) and
+                    if (srsymtable.symtabletype=objectsymtable) and
                        assigned(current_procinfo) and
                        assigned(current_procinfo) and
                        (po_classmethod in current_procinfo.procdef.procoptions) then
                        (po_classmethod in current_procinfo.procdef.procoptions) then
                      Message(parser_e_only_class_methods);
                      Message(parser_e_only_class_methods);
@@ -2419,7 +2419,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.125  2003-08-23 18:41:52  peter
+  Revision 1.126  2003-08-23 22:29:51  peter
+    * fixed static class check for properties
+
+  Revision 1.125  2003/08/23 18:41:52  peter
     * allow typeof(self) in class methods
     * allow typeof(self) in class methods
 
 
   Revision 1.124  2003/08/10 17:25:23  peter
   Revision 1.124  2003/08/10 17:25:23  peter