Procházet zdrojové kódy

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 před 20 roky
rodič
revize
377aa75f77
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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;