From 9447b975f2834b925775711cef45505c1fc1b16f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 15 Nov 2015 12:14:14 +0000
Subject: [PATCH] * Fix bug #28987, fpfd_clr, and fpfdfillset using cardinal
 instead of correctly sized culong

git-svn-id: trunk@32329 -
---
 rtl/unix/genfdset.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/unix/genfdset.inc b/rtl/unix/genfdset.inc
index bbaafc1b4a..200fa52f8c 100644
--- a/rtl/unix/genfdset.inc
+++ b/rtl/unix/genfdset.inc
@@ -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;