Blame lib/next_prime.c

Packit 032894
/* Determine prime number.
Packit 032894
   Copyright (C) 2006 Red Hat, Inc.
Packit 032894
   This file is part of elfutils.
Packit 032894
   Written by Ulrich Drepper <drepper@redhat.com>, 2000.
Packit 032894
Packit 032894
   This file is free software; you can redistribute it and/or modify
Packit 032894
   it under the terms of either
Packit 032894
Packit 032894
     * the GNU Lesser General Public License as published by the Free
Packit 032894
       Software Foundation; either version 3 of the License, or (at
Packit 032894
       your option) any later version
Packit 032894
Packit 032894
   or
Packit 032894
Packit 032894
     * the GNU General Public License as published by the Free
Packit 032894
       Software Foundation; either version 2 of the License, or (at
Packit 032894
       your option) any later version
Packit 032894
Packit 032894
   or both in parallel, as here.
Packit 032894
Packit 032894
   elfutils is distributed in the hope that it will be useful, but
Packit 032894
   WITHOUT ANY WARRANTY; without even the implied warranty of
Packit 032894
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit 032894
   General Public License for more details.
Packit 032894
Packit 032894
   You should have received copies of the GNU General Public License and
Packit 032894
   the GNU Lesser General Public License along with this program.  If
Packit 032894
   not, see <http://www.gnu.org/licenses/>.  */
Packit 032894
Packit 032894
#include <stddef.h>
Packit 032894
Packit 032894
Packit 032894
/* Test whether CANDIDATE is a prime.  */
Packit 032894
static int
Packit 032894
is_prime (size_t candidate)
Packit 032894
{
Packit 032894
  /* No even number and none less than 10 will be passed here.  */
Packit 032894
  size_t divn = 3;
Packit 032894
  size_t sq = divn * divn;
Packit 032894
Packit 032894
  while (sq < candidate && candidate % divn != 0)
Packit 032894
    {
Packit 032894
      size_t old_sq = sq;
Packit 032894
      ++divn;
Packit 032894
      sq += 4 * divn;
Packit 032894
      if (sq < old_sq)
Packit 032894
	return 1;
Packit 032894
      ++divn;
Packit 032894
    }
Packit 032894
Packit 032894
  return candidate % divn != 0;
Packit 032894
}
Packit 032894
Packit 032894
Packit 032894
/* We need primes for the table size.  */
Packit 032894
size_t
Packit 032894
next_prime (size_t seed)
Packit 032894
{
Packit 032894
  /* Make it definitely odd.  */
Packit 032894
  seed |= 1;
Packit 032894
Packit 032894
  while (!is_prime (seed))
Packit 032894
    seed += 2;
Packit 032894
Packit 032894
  return seed;
Packit 032894
}