Browse Source

* Warn only for go32v2 even for 2.7.1 version

git-svn-id: trunk@18222 -
pierre 14 years ago
parent
commit
99393e6a5d
1 changed files with 7 additions and 1 deletions
  1. 7 1
      packages/fcl-process/src/dummy/process.inc

+ 7 - 1
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}