浏览代码

* don't give redefinition warning for forward classes

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

+ 6 - 2
compiler/pdecl.pas

@@ -433,7 +433,8 @@ implementation
                     object_dec(orgtypename,tobjectdef(ttypesym(sym).restype.def));
                     newtype:=ttypesym(sym);
                     tt:=newtype.restype;
-                  end;
+                  end
+                 else
                   message1(parser_h_type_redef,typename);
                end;
             end;
@@ -636,7 +637,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.71  2003-10-03 14:45:09  peter
+  Revision 1.72  2003-11-12 15:48:48  peter
+    * don't give redefinition warning for forward classes
+
+  Revision 1.71  2003/10/03 14:45:09  peter
     * more proc directive for procvar fixes
 
   Revision 1.70  2003/10/02 21:13:09  peter