Explorar el Código

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

git-svn-id: trunk@17858 -
marco hace 14 años
padre
commit
765a792599
Se han modificado 1 ficheros con 2 adiciones y 0 borrados
  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