paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 23:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* two more culong(1) shl fixes.

Browse Source 
git-svn-id: trunk@12419 -
This commit is contained in:
marco 2008-12-23 14:00:59 +00:00
parent a88ebff6dd
commit b8194205af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/genfdset.inc
View File

@ -19,7 +19,7 @@ function fpFD_SET(fdno:cint;var nset : TFDSet): cint;
Begin Begin
if (fdno<0) or (fdno > FD_MAXFDSET) Then if (fdno<0) or (fdno > FD_MAXFDSET) Then
exit(-1); exit(-1);
nset[fdno shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] OR (1 shl ((fdno) and ln2bitmask)); nset[fdno shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] OR (culong(1) shl ((fdno) and ln2bitmask));
fpFD_SET:=0; fpFD_SET:=0;
End; End;
@ -28,7 +28,7 @@ function fpFD_CLR(fdno:cint;var nset : TFDSet): cint;
Begin Begin
if (fdno<0) or (fdno > FD_MAXFDSET) Then if (fdno<0) or (fdno > FD_MAXFDSET) Then
exit(-1); exit(-1);
nset[(fdno) shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] AND Cardinal(NOT (1 shl ((fdno) and ln2bitmask))); nset[(fdno) shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] AND Cardinal(NOT (culong(1) shl ((fdno) and ln2bitmask)));
fpFD_CLR:=0; fpFD_CLR:=0;
End; End;