paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 23:28:14 +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 interface
{$IFDEF Windows} {$IFDEF Windows}
{$IF FPC_FULLVERSION>=20701}
uses uses
SysUtils, Windows, Messages; SysUtils, Windows, Messages;
procedure ShowWindow(AStr : String); procedure ShowWindow(AStr : String);
{$ENDIF}
{$ENDIF Windows} {$ENDIF Windows}
implementation implementation
{$IFDEF Windows} {$IFDEF Windows}
{$IF FPC_FULLVERSION>=20701}
Var Var
WndHandle, WndHandle,
ButtonHandle, ButtonHandle,
@ -183,8 +186,7 @@ Begin
UnregisterClass(WndClass.lpszClassName, WndClass.hInstance); UnregisterClass(WndClass.lpszClassName, WndClass.hInstance);
end; end;
{$ELSE Windows} {$ENDIF}
// If some action is needed in non-Windows systems, add it here.
{$ENDIF Windows} {$ENDIF Windows}
end. end.

6
ide/redirect_stderr.pas
View File

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