ソースを参照

Merged revisions 1692 via svnmerge from
http://[email protected]/svn/fpc/trunk

........
r1692 | peter | 2005-11-08 10:15:20 +0100 (Tue, 08 Nov 2005) | 2 lines

* fixed range error in FpSigFillSet

........

git-svn-id: branches/fixes_2_0@1693 -

peter 20 年 前
コミット
377aa75f77
1 ファイル変更1 行追加1 行削除
  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 DO nset[i]:=NOT 0;
+  for i:=0 to wordsinsigset-1 DO nset[i]:=NOT 0;
   fpsigfillset:=0;
 End;