From dcd349abd91aad8beb6968849202dd6f06295c4f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 13 Sep 2016 08:37:52 +0000
Subject: [PATCH]  Use DEBUG_LINEINFO instead of DEBUG in exeinfo unit source

git-svn-id: trunk@34521 -
---
 rtl/inc/exeinfo.pp | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/rtl/inc/exeinfo.pp b/rtl/inc/exeinfo.pp
index 6fb4a737f3..35551ccb6f 100644
--- a/rtl/inc/exeinfo.pp
+++ b/rtl/inc/exeinfo.pp
@@ -882,7 +882,7 @@ begin
               found_addr:=phdr^.p_vaddr;
             inc(pointer(phdr), phdr_size);
           end;
-      {$ifdef DEBUG}
+      {$ifdef DEBUG_LINEINFO}
       end
     else
       begin
@@ -892,26 +892,26 @@ begin
            writeln(stderr,'AUX entry AT_PHENT not found');
         if (phdr=nil) then
            writeln(stderr,'AUX entry AT_PHDR not found');
-      {$endif DEBUG}
+      {$endif DEBUG_LINEINFO}
       end;
 
      if found_addr<>ptruint(-1) then
        begin
-          {$ifdef DEBUG}
+          {$ifdef DEBUG_LINEINFO}
           Writeln(stderr,'Found addr = $',hexstr(found_addr,2 * sizeof(ptruint)));
           {$endif}
           BaseAddr:=pointer(found_addr);
        end
-  {$ifdef DEBUG}
+  {$ifdef DEBUG_LINEINFO}
      else
     writeln(stderr,'Error parsing stack');
-  {$endif DEBUG}
+  {$endif DEBUG_LINEINFO}
   end
   else
   begin
-  {$ifdef DEBUG}
+  {$ifdef DEBUG_LINEINFO}
     writeln(stderr,'Exception parsing stack');
-  {$endif DEBUG}
+  {$endif DEBUG_LINEINFO}
   end;
   ExitProc:=SavedExitProc;
 end;