diff --git a/compiler/mips/cpubase.pas b/compiler/mips/cpubase.pas
index f59589ccd5..26393edaba 100644
--- a/compiler/mips/cpubase.pas
+++ b/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.
diff --git a/compiler/mips/cputarg.pas b/compiler/mips/cputarg.pas
index d1233a29bc..7baffa6d22 100644
--- a/compiler/mips/cputarg.pas
+++ b/compiler/mips/cputarg.pas
@@ -58,7 +58,7 @@ implementation
 **************************************}
 
 {$define NoCFIDwarf}
-{$define NoDbgDwarf}
+{define NoDbgDwarf}
 { Try only stabs for a start }
   {$ifndef NoCFIDwarf}
       ,cfidwarf