paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compile-time range error under Windows (mantis #16171)

Browse Source 
git-svn-id: trunk@15099 -
This commit is contained in:
Jonas Maebe 2010-03-31 17:21:15 +00:00
parent 16de86ef7c
commit b4b72b8387
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/custfcgi.pp
View File

@ -329,7 +329,7 @@ begin
Inherited Create(AOwner); Inherited Create(AOwner);
FRequestsAvail:=5; FRequestsAvail:=5;
SetLength(FRequestsArray,FRequestsAvail); SetLength(FRequestsArray,FRequestsAvail);
FHandle := -1; FHandle := THandle(-1);
end; end;
destructor TCustomFCgiApplication.Destroy; destructor TCustomFCgiApplication.Destroy;
@ -348,7 +348,7 @@ begin
begin begin
fpshutdown(FHandle,SHUT_RDWR); fpshutdown(FHandle,SHUT_RDWR);
CloseSocket(FHandle); CloseSocket(FHandle);
FHandle := -1; FHandle := THandle(-1);
end; end;
Request := Nil; Request := Nil;
Response := Nil; Response := Nil;