Browse Source

* aded missing reset of labels of rttitablesym and inittablesym labels

Jonas Maebe 24 years ago
parent
commit
a2218eb517
1 changed files with 8 additions and 1 deletions
  1. 8 1
      compiler/symdef.pas

+ 8 - 1
compiler/symdef.pas

@@ -5327,6 +5327,10 @@ implementation
               enumdef  : tenumdef(def).rangenr:=0;
               enumdef  : tenumdef(def).rangenr:=0;
               arraydef : tarraydef(def).rangenr:=0;
               arraydef : tarraydef(def).rangenr:=0;
             end;
             end;
+            if assigned(def.rttitablesym) then
+              trttisym(def.rttitablesym).lab := nil;
+            if assigned(def.inittablesym) then
+              trttisym(def.inittablesym).lab := nil;
             def.localrttilab[initrtti]:=nil;
             def.localrttilab[initrtti]:=nil;
             def.localrttilab[fullrtti]:=nil;
             def.localrttilab[fullrtti]:=nil;
 {$ifdef debug}
 {$ifdef debug}
@@ -5396,7 +5400,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.47  2001-09-02 21:18:28  peter
+  Revision 1.48  2001-09-03 15:18:38  jonas
+    * aded missing reset of labels of rttitablesym and inittablesym labels
+
+  Revision 1.47  2001/09/02 21:18:28  peter
     * split constsym.value in valueord,valueordptr,valueptr. The valueordptr
     * split constsym.value in valueord,valueordptr,valueptr. The valueordptr
       is used for holding target platform pointer values. As those can be
       is used for holding target platform pointer values. As those can be
       bigger than the source platform.
       bigger than the source platform.