Browse Source

+ enabled DWARF debug info writing on the WebAssembly target. Note that it
doesn't work yet (produces internal errors).

git-svn-id: branches/wasm@48445 -

nickysn 4 years ago
parent
commit
0ceefa4d22
2 changed files with 19 additions and 1 deletions
  1. 13 0
      compiler/wasm32/cpubase.pas
  2. 6 1
      compiler/wasm32/cputarg.pas

+ 13 - 0
compiler/wasm32/cpubase.pas

@@ -302,6 +302,8 @@ uses
     function std_regname(r:Tregister):string;
     function findreg_by_number(r:Tregister):tregisterindex;
 
+    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg_no_error(r:tregister):shortint;
     function eh_return_data_regno(nr: longint): longint;
 
     { since we don't use tasmconds, don't call this routine
@@ -367,6 +369,17 @@ uses
           result:=generic_regname(r);
       end;
 
+    function dwarf_reg(r:tregister):byte;
+      begin
+        result:=-1;
+        internalerror(200603251);
+      end;
+
+    function dwarf_reg_no_error(r:tregister):shortint;
+      begin
+        result:=-1;
+      end;
+
     function eh_return_data_regno(nr: longint): longint;
       begin
         result:=-1;

+ 6 - 1
compiler/wasm32/cputarg.pas

@@ -57,7 +57,12 @@ implementation
              Debuginfo
 **************************************}
 
-      //,dbgjasm
+  {$ifndef NoCFIDwarf}
+      //,cfidwarf
+  {$endif NoCFIDwarf}
+  {$ifndef NoDbgDwarf}
+      ,dbgdwarf
+  {$endif NoDbgDwarf}
 
       ;