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

+ separate JUMP_DEBUG define

Browse Source 
git-svn-id: trunk@43463 -
This commit is contained in:
florian 2019-11-14 21:14:00 +00:00
parent d82335bf9a
commit 0ab0eefae0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aoptobj.pas
View File

@ -24,7 +24,9 @@
}
Unit AoptObj;
{$i fpcdefs.inc}
{ $define DEBUG_JUMP}
{$i fpcdefs.inc}
{ general, processor independent objects for use by the assembler optimizer }
@ -1552,11 +1554,11 @@ Unit AoptObj;
{ Output debug message to console - null function if EXTDEBUG is not defined }
class procedure TAOptObj.DebugWrite(Message: string); inline;
begin
{$ifdef EXTDEBUG}
{$ifdef DEBUG_JUMP}
WriteLn(Message);
{$else EXTDEBUG}
{$else DEBUG_JUMP}
{ Do nothing }
{$endif EXTDEBUG}
{$endif DEBUG_JUMP}
end;
{ Removes all instructions between an unconditional jump and the next label }