Sfoglia il codice sorgente

* don't try to generate rtti if the type has an error

git-svn-id: trunk@5271 -
peter 18 anni fa
parent
commit
99309202bc
1 ha cambiato i file con 4 aggiunte e 3 eliminazioni
  1. 4 3
      compiler/pdecl.pas

+ 4 - 3
compiler/pdecl.pas

@@ -553,9 +553,10 @@ implementation
                hdef.typesym:=newtype;
                hdef.typesym:=newtype;
              end;
              end;
 
 
-           { Write tables if we are the typesym that defines
-             this type. This will not be done for simple type renamings }
-           if (hdef.typesym=newtype) then
+           { Write tables if there are no errors and we are the typesym that
+             defines this type, so this will not be done for simple type renamings }
+           if (hdef.typ<>errordef) and
+              (hdef.typesym=newtype) then
             begin
             begin
               { file position }
               { file position }
               oldfilepos:=current_filepos;
               oldfilepos:=current_filepos;