mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 05:49:23 +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 std_regname(r:Tregister):string;
|
||||||
function findreg_by_number(r:Tregister):tregisterindex;
|
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;
|
function eh_return_data_regno(nr: longint): longint;
|
||||||
|
|
||||||
{ since we don't use tasmconds, don't call this routine
|
{ since we don't use tasmconds, don't call this routine
|
||||||
@ -367,6 +369,17 @@ uses
|
|||||||
result:=generic_regname(r);
|
result:=generic_regname(r);
|
||||||
end;
|
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;
|
function eh_return_data_regno(nr: longint): longint;
|
||||||
begin
|
begin
|
||||||
result:=-1;
|
result:=-1;
|
||||||
|
@ -57,7 +57,12 @@ implementation
|
|||||||
Debuginfo
|
Debuginfo
|
||||||
**************************************}
|
**************************************}
|
||||||
|
|
||||||
//,dbgjasm
|
{$ifndef NoCFIDwarf}
|
||||||
|
//,cfidwarf
|
||||||
|
{$endif NoCFIDwarf}
|
||||||
|
{$ifndef NoDbgDwarf}
|
||||||
|
,dbgdwarf
|
||||||
|
{$endif NoDbgDwarf}
|
||||||
|
|
||||||
;
|
;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user