paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 08:18:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix compilation for FPC 2.6.x in the Heaptrc output window feature

Browse Source 
git-svn-id: trunk@41174 -
This commit is contained in:
juha 2013-05-13 14:42:17 +00:00
parent 23584532f9
commit 558eb5e72e
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/raw_window.pas
View File

@ -28,15 +28,18 @@ unit raw_window;
interface
{$IFDEF Windows}
{$IF FPC_FULLVERSION>=20701}
uses
SysUtils, Windows, Messages;
procedure ShowWindow(AStr : String);
{$ENDIF}
{$ENDIF Windows}
implementation
{$IFDEF Windows}
{$IF FPC_FULLVERSION>=20701}
Var
WndHandle,
ButtonHandle,
@ -183,8 +186,7 @@ Begin
UnregisterClass(WndClass.lpszClassName, WndClass.hInstance);
end;
{$ELSE Windows}
// If some action is needed in non-Windows systems, add it here.
{$ENDIF}
{$ENDIF Windows}
end.

6
ide/redirect_stderr.pas
View File

@ -28,8 +28,10 @@ unit redirect_stderr;
interface
{$IFDEF Windows}
{$IF FPC_FULLVERSION>=20701}
uses
heaptrc, SysUtils, raw_window;
{$ENDIF}
{$ENDIF Windows}
Var
@ -38,6 +40,7 @@ Var
implementation
{$IFDEF Windows}
{$IF FPC_FULLVERSION>=20701}
const
ErrorBufferLength = 2 * 1024;
@ -128,8 +131,7 @@ initialization
AssignError(MyStdErr);
SetHeapTraceOutput(MyStdErr);
{$ELSE Windows}
// If some action is needed in non-Windows systems, add it here.
{$ENDIF}
{$ENDIF Windows}
end.