Mercurial > emacs

comparison src/fns.c @ 29979:6fe8f444b6a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(next_almost_prime): Make it externally visible.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 28 Jun 2000 20:28:21 +0000
parents dad7b11391a3
children fff5fd809d11
comparison
equal deleted inserted replaced
29978:4b651d582c5f 29979:6fe8f444b6a3
3540 Lisp_Object Qhash_table_test; 3540 Lisp_Object Qhash_table_test;
3541 3541
3542 /* Function prototypes. */ 3542 /* Function prototypes. */
3543 3543
3544 static struct Lisp_Hash_Table *check_hash_table P_ ((Lisp_Object)); 3544 static struct Lisp_Hash_Table *check_hash_table P_ ((Lisp_Object));
3545 static int next_almost_prime P_ ((int));
3546 static int get_key_arg P_ ((Lisp_Object, int, Lisp_Object *, char *)); 3545 static int get_key_arg P_ ((Lisp_Object, int, Lisp_Object *, char *));
3547 static void maybe_resize_hash_table P_ ((struct Lisp_Hash_Table *)); 3546 static void maybe_resize_hash_table P_ ((struct Lisp_Hash_Table *));
3548 static int cmpfn_eql P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned, 3547 static int cmpfn_eql P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned,
3549 Lisp_Object, unsigned)); 3548 Lisp_Object, unsigned));
3550 static int cmpfn_equal P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned, 3549 static int cmpfn_equal P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned,
3581 3580
3582 3581
3583 /* Value is the next integer I >= N, N >= 0 which is "almost" a prime 3582 /* Value is the next integer I >= N, N >= 0 which is "almost" a prime
3584 number. */ 3583 number. */
3585 3584
3586 static int 3585 int
3587 next_almost_prime (n) 3586 next_almost_prime (n)
3588 int n; 3587 int n;
3589 { 3588 {
3590 if (n % 2 == 0) 3589 if (n % 2 == 0)
3591 n += 1; 3590 n += 1;