소스 검색

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

git-svn-id: trunk@17858 -
marco 14 년 전
부모
커밋
765a792599
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  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