From 99393e6a5d2a415cb176597a214e41d79e96e878 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 16 Aug 2011 15:14:46 +0000
Subject: [PATCH]  * Warn only for go32v2 even for 2.7.1 version

git-svn-id: trunk@18222 -
---
 packages/fcl-process/src/dummy/process.inc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-process/src/dummy/process.inc b/packages/fcl-process/src/dummy/process.inc
index 73311f2ffa..9356149b9f 100644
--- a/packages/fcl-process/src/dummy/process.inc
+++ b/packages/fcl-process/src/dummy/process.inc
@@ -4,8 +4,14 @@
 
 {
   prevent compilation error for the versions mentioned below
-} 
+}
+{$if defined (go32v2) and defined(VER2_7_1)}
+  {$define WARN_ONLY}
+{$endif}
 {$if defined(VER2_4) or defined(VER2_5_1)}
+  {$define WARN_ONLY}
+{$endif}
+{$ifdef WARN_ONLY}
 {$warning Temporary workaround - unit does nothing}
 {$else}
 {$fatal Proper implementation of TProcess for version of this target needed}