paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 10:29:37 +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; NeedData: Boolean;
CallbackTypes: TCallbackTypes; CallbackTypes: TCallbackTypes;
begin begin
if IOHandle > MaxHandle then if (IOHandle < 0) or (IOHandle > MaxHandle) then
begin begin
Result := asyncInvalidFileHandle; Result := asyncInvalidFileHandle;
exit; exit;
@ -483,7 +483,10 @@ end;
{ {
$Log$ $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 * Split in common implementation an platform dependent implementation
} }