From 99309202bcc2010daa39bbd6f263ca5cec7b84bf Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 7 Nov 2006 08:52:53 +0000
Subject: [PATCH]   * don't try to generate rtti if the type has an error

git-svn-id: trunk@5271 -
---
 compiler/pdecl.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 7fd415dac2..3e1cf94e45 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -553,9 +553,10 @@ implementation
                hdef.typesym:=newtype;
              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
               { file position }
               oldfilepos:=current_filepos;