From 0ceefa4d224635150c6a526afb2521a0dfab80c2 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 28 Jan 2021 16:16:32 +0000
Subject: [PATCH] + 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 -
---
 compiler/wasm32/cpubase.pas | 13 +++++++++++++
 compiler/wasm32/cputarg.pas |  7 ++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/compiler/wasm32/cpubase.pas b/compiler/wasm32/cpubase.pas
index f3120617bf..194c0ce42a 100644
--- a/compiler/wasm32/cpubase.pas
+++ b/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;
diff --git a/compiler/wasm32/cputarg.pas b/compiler/wasm32/cputarg.pas
index c49ce5aaec..c6679b619b 100644
--- a/compiler/wasm32/cputarg.pas
+++ b/compiler/wasm32/cputarg.pas
@@ -57,7 +57,12 @@ implementation
              Debuginfo
 **************************************}
 
-      //,dbgjasm
+  {$ifndef NoCFIDwarf}
+      //,cfidwarf
+  {$endif NoCFIDwarf}
+  {$ifndef NoDbgDwarf}
+      ,dbgdwarf
+  {$endif NoDbgDwarf}
 
       ;