hash: use unsigned, and operation.

* hash.c (struct hash): modulus and count change from cnum to
ucnum.
(hash_mark, hash_grow, copy_hash, do_weak_tables): Use ucnum
local vars.
(do_make_hash, make_similar_hash): Use c_unum to obtain modulus.
(gethash_c, gethash_e): Use & masking operation to reduce hash
value to table size.
(remhash): Move sanity check before decrement since unsigned
value can't go below zero.
(clearhash): Use ucnum and c_unum.
(hash_iter_peek): Use ucnum for chain count local.

* hash.h (struct hash_iter): chain changes from cnum to ucnum.

1 files changed, 1 insertions, 1 deletions

diff --git a/hash.h b/hash.h
index 543ae400..a62c56f3 100644
--- a/hash.h
+++ b/hash.h
@@ -37,7 +37,7 @@ typedef enum hash_weak_opt {
 struct hash_iter {
   struct hash_iter *next;
   val hash;
-  cnum chain;
+  ucnum chain;
   val cons;
 };