Fix prime generation loop in crypto/bn/bn_prime.pl by making

[openssl.git] / crypto / bn / bn_prime.pl

diff --git a/crypto/bn/bn_prime.pl b/crypto/bn/bn_prime.pl
index bfe577643aa55b9c0f8f61100de9a6b65660d919..e583d1d53b9dffb2178778c26ad2f280e1c6c304 100644 (file)
--- a/crypto/bn/bn_prime.pl
+++ b/crypto/bn/bn_prime.pl
@@ -11,7 +11,7 @@ loop: while ($#primes < $num-1)
        $p+=2;
        $s=int(sqrt($p));
 
-       for ($i=0; $primes[$i]<=$s; $i++)
+       for ($i=0; defined($primes[$i]) && $primes[$i]<=$s; $i++)
                {
                next loop if (($p%$primes[$i]) == 0);
                }
@@ -104,7 +104,7 @@ printf "#define NUMPRIMES %d\n",$num;
 printf "#else\n";
 printf "#define NUMPRIMES %d\n",$eight;
 printf "#endif\n";
-print "static unsigned int primes[NUMPRIMES]=\n\t{\n\t";
+print "static const unsigned int primes[NUMPRIMES]=\n\t{\n\t";
 $init=0;
 for ($i=0; $i <= $#primes; $i++)
        {