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;