Browse Source

* don't generate rtti for errordef

peter 21 years ago
parent
commit
46769ccfcb
1 changed files with 7 additions and 1 deletions
  1. 7 1
      compiler/symsym.pas

+ 7 - 1
compiler/symsym.pas

@@ -2617,6 +2617,9 @@ implementation
         if not(p.typ=typesym) then
         if not(p.typ=typesym) then
          internalerror(200108261);
          internalerror(200108261);
         def:=tstoreddef(ttypesym(p).restype.def);
         def:=tstoreddef(ttypesym(p).restype.def);
+        { there is an error, skip rtti info }
+        if def.deftype=errordef then
+          exit;
         { only create rtti once for each definition }
         { only create rtti once for each definition }
         if not(df_has_rttitable in def.defoptions) then
         if not(df_has_rttitable in def.defoptions) then
          begin
          begin
@@ -2684,7 +2687,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.138  2003-12-12 12:09:40  marco
+  Revision 1.139  2003-12-23 22:13:26  peter
+    * don't generate rtti for errordef
+
+  Revision 1.138  2003/12/12 12:09:40  marco
    * always generate RTTI patch from peter
    * always generate RTTI patch from peter
 
 
   Revision 1.137  2003/12/01 18:44:15  peter
   Revision 1.137  2003/12/01 18:44:15  peter