* check if we've to write the basedef for enums when writing debug info

git-svn-id: trunk@4130 -

compiler/dbgdwarf.pas

@@ -1357,6 +1357,9 @@ implementation
             end;
           procdef :
             insertdef(list,tprocdef(def).rettype.def);
+          enumdef :
+            if assigned(tenumdef(def).basedef) then
+              insertdef(list,tenumdef(def).basedef);
           arraydef :
             begin
               insertdef(list,tarraydef(def).rangetype.def);

compiler/dbgstabs.pas

@@ -832,6 +832,9 @@ implementation
             end;
           recorddef :
             trecorddef(def).symtable.foreach(@field_write_defs,list);
+          enumdef :
+            if assigned(tenumdef(def).basedef) then
+              insertdef(list,tenumdef(def).basedef);
           objectdef :
             begin
               insertdef(list,vmtarraytype.def);
@@ -995,7 +998,7 @@ implementation
             write_def_stabstr(templist,pd);
 
             current_asmdata.asmlists[al_procedures].insertlistbefore(pd.procstarttai,templist);
-            
+
             { para types }
             if assigned(pd.parast) then
               write_symtable_syms(templist,pd.parast);