From b4b72b8387becab5d82bb1250807f12201cd9439 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 31 Mar 2010 17:21:15 +0000
Subject: [PATCH]   * fixed compile-time range error under Windows (mantis
 #16171)

git-svn-id: trunk@15099 -
---
 packages/fcl-web/src/custfcgi.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-web/src/custfcgi.pp b/packages/fcl-web/src/custfcgi.pp
index 40758deb66..16ce8a4014 100644
--- a/packages/fcl-web/src/custfcgi.pp
+++ b/packages/fcl-web/src/custfcgi.pp
@@ -329,7 +329,7 @@ begin
   Inherited Create(AOwner);
   FRequestsAvail:=5;
   SetLength(FRequestsArray,FRequestsAvail);
-  FHandle := -1;
+  FHandle := THandle(-1);
 end;
 
 destructor TCustomFCgiApplication.Destroy;
@@ -348,7 +348,7 @@ begin
       begin
       fpshutdown(FHandle,SHUT_RDWR);
       CloseSocket(FHandle);
-      FHandle := -1;
+      FHandle := THandle(-1);
       end;
     Request := Nil;
     Response := Nil;