Browse Source

Use DEBUG_LINEINFO instead of DEBUG in exeinfo unit source

git-svn-id: trunk@34521 -
pierre 9 years ago
parent
commit
dcd349abd9
1 changed files with 7 additions and 7 deletions
  1. 7 7
      rtl/inc/exeinfo.pp

+ 7 - 7
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;