Procházet zdrojové kódy

* Warn only for go32v2 even for 2.7.1 version

git-svn-id: trunk@18222 -
pierre před 14 roky
rodič
revize
99393e6a5d
1 změnil soubory, kde provedl 7 přidání a 1 odebrání
  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}