Partially sync files.el from XEmacs 21.5 for wildcard support.

[sxemacs] / src / bloom.c

diff --git a/src/bloom.c b/src/bloom.c
index 7f873d8..5c55ceb 100644 (file)
--- a/src/bloom.c
+++ b/src/bloom.c
@@ -879,7 +879,7 @@ print_bloom(Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
 }
 
 static void
-finalise_bloom(void *header, int UNUSED(for_disksave))
+finalise_bloom(void *header, int SXE_UNUSED(for_disksave))
 {
        Lisp_Bloom *free_me = header;
 
@@ -917,7 +917,7 @@ make_bloom_uninitted(uint32_t order, uint32_t degree)
        Lisp_Bloom *bf = allocate_bloom();
 #if !BLOOM_USE_PRIMES
        /* we must use a 2-power */
-       order = 1 << (1 + __ase_flsl(order - 1));
+       order = __next_2power(order);
 #endif
 
        bloom_order(bf) = order;
@@ -1311,4 +1311,3 @@ void vars_of_bloom(void)
 {
        Fprovide(intern("bloom"));
 }
-