paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 05:08:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add Dwarf debug info generation by default for mips cpu

Browse Source 
git-svn-id: trunk@22509 -
This commit is contained in:
pierre 2012-10-01 14:23:14 +00:00
parent fcaff0489c
commit 37a7c1fc25
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/mips/cpubase.pas
View File

@ -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.

2
compiler/mips/cputarg.pas
View File

@ -58,7 +58,7 @@ implementation
**************************************}
{$define NoCFIDwarf}
{$define NoDbgDwarf}
{define NoDbgDwarf}
{ Try only stabs for a start }
{$ifndef NoCFIDwarf}
,cfidwarf