Browse Source

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

git-svn-id: trunk@17858 -
marco 14 years ago
parent
commit
765a792599
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-web/src/base/custfcgi.pp

+ 2 - 0
packages/fcl-web/src/base/custfcgi.pp

@@ -792,7 +792,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