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

* fd's now walk from 0..maxset again. IDE/unit kbd works again.

Browse Source
This commit is contained in:
marco 2003-10-23 12:06:14 +00:00
parent 4c771c1b8e
commit 5538700c8a
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/unix/genfdset.inc
View File

@ -18,18 +18,18 @@
function fpFD_SET(fdno:cint;var nset : TFDSet): cint;
Begin
if (fdno<=0) or (fdno > FD_MAXFDSET) Then
if (fdno<0) or (fdno > FD_MAXFDSET) Then
exit(-1);
nset[(fdno-1) shr ln2bitsinword]:=nset[(fdno-1) shr ln2bitsinword] OR (1 shl ((fdno-1) and ln2bitmask));
nset[fdno shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] OR (1 shl ((fdno) and ln2bitmask));
fpFD_SET:=0;
End;
function fpFD_CLR(fdno:cint;var nset : TFDSet): cint;
Begin
if (fdno<=0) or (fdno > FD_MAXFDSET) Then
if (fdno<0) or (fdno > FD_MAXFDSET) Then
exit(-1);
nset[(fdno-1) shr ln2bitsinword]:=nset[(fdno-1) shr ln2bitsinword] AND Cardinal(NOT (1 shl ((fdno-1) and ln2bitmask)));
nset[(fdno) shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] AND Cardinal(NOT (1 shl ((fdno) and ln2bitmask)));
fpFD_CLR:=0;
End;
@ -54,9 +54,9 @@ End;
function fpFD_ISSET(fdno:cint;const nset : TFDSet): cint;
Begin
if (fdno<=0) or (fdno > FD_MAXFDSET) Then
if (fdno<0) or (fdno > FD_MAXFDSET) Then
exit(-1);
if ((nset[(fdno-1) shr ln2bitsinword]) and (1 shl ((fdno-1) and ln2bitmask)))>0 Then
if ((nset[(fdno) shr ln2bitsinword]) and (1 shl ((fdno) and ln2bitmask)))>0 Then
fpFD_ISSET:=1
else
fpFD_ISSET:=0;
@ -64,7 +64,10 @@ End;
{
$Log$
Revision 1.3 2003-09-22 19:43:22 peter
Revision 1.4 2003-10-23 12:06:14 marco
* fd's now walk from 0..maxset again. IDE/unit kbd works again.
Revision 1.3 2003/09/22 19:43:22 peter
* Fix range check error for Not 0
* Fix loop in fdfillfdset