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

* monster line fixed

Browse Source 
git-svn-id: trunk@8959 -
This commit is contained in:
florian 2007-10-27 20:21:41 +00:00
parent 9c204814ad
commit d35fae6c74
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/lnfodwrf.pp
View File

@ -868,7 +868,11 @@ begin
end;
if (state.append_row) then begin
DEBUG_WRITELN('Current state : address = ', hexstr(state.address, sizeof(state.address) * 2), ' file_id = ', state.file_id, ' line = ', state.line, ' column = ', state.column, ' is_stmt = ', state.is_stmt, ' basic_block = ', state.basic_block, ' end_sequence = ', state.end_sequence, ' prolouge_end = ', state.prolouge_end, ' epilouge_begin = ', state.epilouge_begin, ' isa = ', state.isa);
DEBUG_WRITELN('Current state : address = ', hexstr(state.address, sizeof(state.address) * 2),
' file_id = ', state.file_id, ' line = ', state.line, ' column = ', state.column,
' is_stmt = ', state.is_stmt, ' basic_block = ', state.basic_block,
' end_sequence = ', state.end_sequence, ' prolouge_end = ', state.prolouge_end,
' epilouge_begin = ', state.epilouge_begin, ' isa = ', state.isa);
if (first_row) then begin
if (state.address > addr) then