paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 05:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #28987, fpfd_clr, and fpfdfillset using cardinal instead of correctly sized culong

Browse Source 
git-svn-id: trunk@32329 -
This commit is contained in:
michael 2015-11-15 12:14:14 +00:00
parent b7e52c632f
commit 9447b975f2
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

@ -28,7 +28,7 @@ function fpFD_CLR(fdno:cint;var nset : TFDSet): cint;
Begin
if (fdno<0) or (fdno > FD_MAXFDSET) Then
exit(-1);
nset[(fdno) shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] AND Cardinal(NOT (culong(1) shl ((fdno) and ln2bitmask)));
nset[(fdno) shr ln2bitsinword]:=nset[(fdno) shr ln2bitsinword] AND cuLong(NOT (culong(1) shl ((fdno) and ln2bitmask)));
fpFD_CLR:=0;
End;
@ -46,7 +46,7 @@ function fpfdfillset(var nset : TFDSet):cint;
var i :longint;
Begin
for i:=0 to wordsinfdset-1 DO nset[i]:=Cardinal(NOT 0);
for i:=0 to wordsinfdset-1 DO nset[i]:=Culong(NOT 0);
fpfdfillset:=0;
End;