* fixed range error in FpSigFillSet

git-svn-id: trunk@1692 -

rtl/unix/gensigset.inc

@@ -52,7 +52,7 @@ function fpsigfillset(var nset : tsigset):cint;
 var i :longint;
 
 Begin
-  for i:=0 to wordsinsigset DO nset[i]:=NOT 0;
+  for i:=0 to wordsinsigset-1 DO nset[i]:=NOT 0;
   fpsigfillset:=0;
 End;