From 60d75fa97e62e40a9f16652f3e9dc482804e958c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 21 May 2016 14:48:32 +0000
Subject: [PATCH]   * fixed (harmless) range error in 64 bit BSD-based RTLs

git-svn-id: trunk@33736 -
---
 rtl/unix/genfdset.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/unix/genfdset.inc b/rtl/unix/genfdset.inc
index 200fa52f8c..f2657a6f6e 100644
--- a/rtl/unix/genfdset.inc
+++ b/rtl/unix/genfdset.inc
@@ -46,7 +46,7 @@ function fpfdfillset(var nset : TFDSet):cint;
 var i :longint;
 
 Begin
-  for i:=0 to wordsinfdset-1 DO nset[i]:=Culong(NOT 0);
+  for i:=0 to wordsinfdset-1 DO nset[i]:=Culong((NOT 0) and ln2bitmask);
   fpfdfillset:=0;
 End;