paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 11:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: redirect_stderr: only use if needed

Browse Source 
git-svn-id: trunk@48190 -
This commit is contained in:
mattias 2015-03-10 11:07:26 +00:00
parent 4a98dfda57
commit 75dbf9d596
3 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/include/ide.inc
View File

@ -54,5 +54,9 @@
{$OPTIMIZATION NOSTACKFRAME}
{$ENDIF}
{$IF defined(Windows) and defined(HEAPTRC_WINDOW) and FPC_FULLVERSION>=20701}
{$DEFINE EnableRedirectStdErr}
{$ENDIF}
// end.

2
ide/lazarus.pp
View File

@ -38,7 +38,9 @@ program Lazarus;
{off $DEFINE IDE_MEM_CHECK}
uses
{$IFDEF EnableRedirectStdErr}
redirect_stderr,
{$ENDIF}
{$IF defined(UNIX) and not defined(DisableMultiThreading)}
cthreads,
{$ENDIF}

12
ide/redirect_stderr.pas
View File

@ -27,23 +27,17 @@ unit redirect_stderr;
interface
{$IFDEF Windows}
{$IFDEF HEAPTRC_WINDOW}
{$IF FPC_FULLVERSION>=20701}
{$IFDEF EnableRedirectStdErr}
uses
heaptrc, SysUtils, raw_window;
{$ENDIF}
{$ENDIF}
{$ENDIF}
Var
DoShowWindow : Boolean = True;
implementation
{$IFDEF Windows}
{$IFDEF HEAPTRC_WINDOW}
{$IF FPC_FULLVERSION>=20701}
{$IFDEF EnableRedirectStdErr}
const
ErrorBufferLength = 2 * 1024;
@ -135,8 +129,6 @@ initialization
SetHeapTraceOutput(MyStdErr);
{$ENDIF}
{$ENDIF}
{$ENDIF}
end.