paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* last commit fixed, the steps are: saving, testing, committing, not testing, saving, commtting ;)

Browse Source 
git-svn-id: trunk@8961 -
This commit is contained in:
florian 2007-10-27 20:42:48 +00:00
parent a221785d0b
commit 0ae5dedbc2
1 changed files with 36 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/lnfodwrf.pp
View File

@ -88,8 +88,10 @@ var
//{$DEFINE DEBUG_DWARF_PARSER} //{$DEFINE DEBUG_DWARF_PARSER}
{$ifdef DEBUG_DWARF_PARSER} {$ifdef DEBUG_DWARF_PARSER}
{$define DEBUG_WRITELN := WriteLn} {$define DEBUG_WRITELN := WriteLn}
{$define DEBUG_COMMENT := }
{$else} {$else}
{$define DEBUG_WRITELN := //} {$define DEBUG_WRITELN := //}
{$define DEBUG_COMMENT := //}
{$endif} {$endif}
{--------------------------------------------------------------------------- {---------------------------------------------------------------------------
@ -869,10 +871,10 @@ begin
if (state.append_row) then begin if (state.append_row) then begin
DEBUG_WRITELN('Current state : address = ', hexstr(state.address, sizeof(state.address) * 2), DEBUG_WRITELN('Current state : address = ', hexstr(state.address, sizeof(state.address) * 2),
' file_id = ', state.file_id, ' line = ', state.line, ' column = ', state.column, DEBUG_COMMENT ' file_id = ', state.file_id, ' line = ', state.line, ' column = ', state.column,
' is_stmt = ', state.is_stmt, ' basic_block = ', state.basic_block, DEBUG_COMMENT ' is_stmt = ', state.is_stmt, ' basic_block = ', state.basic_block,
' end_sequence = ', state.end_sequence, ' prolouge_end = ', state.prolouge_end, DEBUG_COMMENT ' end_sequence = ', state.end_sequence, ' prolouge_end = ', state.prolouge_end,
' epilouge_begin = ', state.epilouge_begin, ' isa = ', state.isa); DEBUG_COMMENT ' epilouge_begin = ', state.epilouge_begin, ' isa = ', state.isa);
if (first_row) then begin if (first_row) then begin
if (state.address > addr) then if (state.address > addr) then