浏览代码

Use DEBUG_LINEINFO instead of DEBUG in exeinfo unit source

git-svn-id: trunk@34521 -
pierre 9 年之前
父节点
当前提交
dcd349abd9
共有 1 个文件被更改,包括 7 次插入7 次删除
  1. 7 7
      rtl/inc/exeinfo.pp

+ 7 - 7
rtl/inc/exeinfo.pp

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