Browse Source

* Prevent range check error when compiling with -Cr

git-svn-id: trunk@3470 -
daniel 19 years ago
parent
commit
ce3ce89028
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/unix/gensigset.inc

+ 1 - 1
rtl/unix/gensigset.inc

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