Add Dwarf debug info generation by default for mips cpu

git-svn-id: trunk@22509 -

compiler/mips/cpubase.pas

@@ -286,6 +286,7 @@ unit cpubase;
     function findreg_by_number(r:Tregister):tregisterindex;
     function std_regnum_search(const s:string):Tregister;
     function std_regname(r:Tregister):string;
+    function dwarf_reg(r:tregister):shortint;
 
   implementation
 
@@ -385,6 +386,12 @@ unit cpubase;
           result:=generic_regname(r);
       end;
 
+    function dwarf_reg(r:tregister):shortint;
+      begin
+        result:=regdwarf_table[findreg_by_number(r)];
+        if result=-1 then
+          internalerror(200603251);
+      end;
 
 begin
 end.

compiler/mips/cputarg.pas

@@ -58,7 +58,7 @@ implementation
 **************************************}
 
 {$define NoCFIDwarf}
-{$define NoDbgDwarf}
+{define NoDbgDwarf}
 { Try only stabs for a start }
   {$ifndef NoCFIDwarf}
       ,cfidwarf