From 558eb5e72e2c732084cabdb12567a8645af4b77c Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 13 May 2013 14:42:17 +0000
Subject: [PATCH] IDE: Fix compilation for FPC 2.6.x in the Heaptrc output
 window feature

git-svn-id: trunk@41174 -
---
 ide/raw_window.pas      | 6 ++++--
 ide/redirect_stderr.pas | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ide/raw_window.pas b/ide/raw_window.pas
index d02d27b9e7..70639eb54c 100644
--- a/ide/raw_window.pas
+++ b/ide/raw_window.pas
@@ -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.
diff --git a/ide/redirect_stderr.pas b/ide/redirect_stderr.pas
index 5a97e5b22a..c03099e335 100644
--- a/ide/redirect_stderr.pas
+++ b/ide/redirect_stderr.pas
@@ -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.