--- Merging r17858 into '.':

U    packages/fcl-web/src/base/custfcgi.pp

# revisions: 17858
------------------------------------------------------------------------
r17858 | marco | 2011-06-28 20:59:20 +0200 (Tue, 28 Jun 2011) | 2 lines
Changed paths:
   M /trunk/packages/fcl-web/src/base/custfcgi.pp

 * another fix for custcgi, bug #19646, hopefully fixes wince building

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@17859 -

packages/fcl-web/src/base/custfcgi.pp

@@ -791,7 +791,9 @@ begin
 {$ifndef windows}
   Result:=fpaccept(Socket,psockaddr(@FIAddress),@FAddressLength);
 {$else}
+  {$ifdef windowspipe}
   if Not fIsWinPipe then
+  {$endif}
     Result:=fpaccept(Socket,psockaddr(@FIAddress),@FAddressLength);
   {$ifdef windowspipe}
   If FIsWinPipe or ((Result<0) and (socketerror=10038)) then