paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Improved checks for valid handles

Browse Source
This commit is contained in:
sg 2003-11-21 01:05:28 +00:00
parent b9376da0aa
commit dc34d11311
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/base/libasync/libasync.inc
View File

@ -55,7 +55,7 @@ var
NeedData: Boolean;
CallbackTypes: TCallbackTypes;
begin
if IOHandle > MaxHandle then
if (IOHandle < 0) or (IOHandle > MaxHandle) then
begin
Result := asyncInvalidFileHandle;
exit;
@ -483,7 +483,10 @@ end;
{
$Log$
Revision 1.4 2002-09-25 21:53:39 sg
Revision 1.5 2003-11-21 01:05:28 sg
* Improved checks for valid handles
Revision 1.4 2002/09/25 21:53:39 sg
* Split in common implementation an platform dependent implementation
}