paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: add define HEAPTRC_WINDOW back to enable the new heap tracer window feature.

Browse Source 
git-svn-id: trunk@41214 -
This commit is contained in:
juha 2013-05-15 18:00:26 +00:00
parent 873389286d
commit 7350d2e125
2 changed files with 12 additions and 4 deletions

8
ide/raw_window.pas
View File

@ -28,17 +28,20 @@ unit raw_window;
interface
{$IFDEF Windows}
{$IFDEF HEAPTRC_WINDOW}
{$IF FPC_FULLVERSION>=20701}
uses
SysUtils, Windows, Messages;
procedure ShowWindow(AStr : String);
{$ENDIF}
{$ENDIF Windows}
{$ENDIF}
{$ENDIF}
implementation
{$IFDEF Windows}
{$IFDEF HEAPTRC_WINDOW}
{$IF FPC_FULLVERSION>=20701}
Var
WndHandle,
@ -187,7 +190,8 @@ Begin
UnregisterClass(WndClass.lpszClassName, WndClass.hInstance);
end;
{$ENDIF}
{$ENDIF Windows}
{$ENDIF}
{$ENDIF}
end.

8
ide/redirect_stderr.pas
View File

@ -28,11 +28,13 @@ unit redirect_stderr;
interface
{$IFDEF Windows}
{$IFDEF HEAPTRC_WINDOW}
{$IF FPC_FULLVERSION>=20701}
uses
heaptrc, SysUtils, raw_window;
{$ENDIF}
{$ENDIF Windows}
{$ENDIF}
{$ENDIF}
Var
DoShowWindow : Boolean = True;
@ -40,6 +42,7 @@ Var
implementation
{$IFDEF Windows}
{$IFDEF HEAPTRC_WINDOW}
{$IF FPC_FULLVERSION>=20701}
const
ErrorBufferLength = 2 * 1024;
@ -132,7 +135,8 @@ initialization
SetHeapTraceOutput(MyStdErr);
{$ENDIF}
{$ENDIF Windows}
{$ENDIF}
{$ENDIF}
end.