paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 20:10:27 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/raw_window.pas
View File

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

8
ide/redirect_stderr.pas
View File

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