mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 11:46:04 +02:00
+ 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 -
This commit is contained in:
parent
c5cac5f554
commit
0ceefa4d22
@ -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;
|
||||
|
@ -57,7 +57,12 @@ implementation
|
||||
Debuginfo
|
||||
**************************************}
|
||||
|
||||
//,dbgjasm
|
||||
{$ifndef NoCFIDwarf}
|
||||
//,cfidwarf
|
||||
{$endif NoCFIDwarf}
|
||||
{$ifndef NoDbgDwarf}
|
||||
,dbgdwarf
|
||||
{$endif NoDbgDwarf}
|
||||
|
||||
;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user