paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 02:32:51 +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);
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;