瀏覽代碼

* 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