From cddd91863740e560ae95ccdd2be5aa0e128713ed Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 22 Jul 2021 07:18:58 -0700 Subject: hash: change make_hash interface. The make_hash function now takes the hash_weak_opt_t enumeration instead of a pair of flags. * hash.c (do_make_hash): Take enum argument instead of pair of flags. Just store the option; nothing to calculate. (weak_opt_from_flags): New static function. (tweak_hash): Function removed. (make_seeded_hash): Adjust to new do_make_hash interface with help from weak_opt_from_flags. (make_hash, make_eq_hash): Take enum argument instead of pair of flags. (hashv): Calculate hash_weak_opt_t enum from the extracted flags, pass down to make_eq_hash or make_hash. * hash.h (tweak_hash): Declration removed. (make_hash, make_eq_hash): Declarations updated. * eval.c (me_case, expand_switch): Update make_hash calls to new style. (eval_init): Update make_hash calls and get rid of tweak_hash calls. This renders the tweak_hash function unused. * ffi.c (make_ffi_type_enum, ffi_init): Update make_hash calls to new style. * filter.c (make_trie, trie_add, filter_init): Likewise. * lib.c (make_package_common, obj_init, obj_print): Likewise. * lisplib.c (lisplib_init): Likewise. * match.c (dir_tables_init): Likewise. * parser.c (parser_circ_def, repl, parse_init): Likewise. * parser.l (parser_l_init): Likewise. * struct.c (struct_init, get_slot_syms): Likewise. * sysif.c (get_env_hash): Likewise. * lex.yy.c.shipped, y.tab.c.shipped: Updated. --- struct.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'struct.c') diff --git a/struct.c b/struct.c index 1b9e5f1f..1efc64f1 100644 --- a/struct.c +++ b/struct.c @@ -159,10 +159,10 @@ void struct_init(void) struct_type_cls = cobj_register(struct_type_s); struct_cls = cobj_register(struct_s); - struct_type_hash = make_hash(nil, nil, nil); - slot_hash = make_hash(nil, nil, t); - slot_type_hash = make_hash(nil, nil, nil); - static_slot_type_hash = make_hash(nil, nil, nil); + struct_type_hash = make_hash(hash_weak_none, nil); + slot_hash = make_hash(hash_weak_none, t); + slot_type_hash = make_hash(hash_weak_none, nil); + static_slot_type_hash = make_hash(hash_weak_none, nil); struct_type_finalize_f = func_n1(struct_type_finalize); reg_fun(intern(lit("make-struct-type"), user_package), @@ -1969,7 +1969,7 @@ val method_name(val fun) val get_slot_syms(val package, val is_current, val method_only) { - val result_hash = make_hash(nil, nil, nil); + val result_hash = make_hash(hash_weak_none, nil); struct hash_iter sthi; val sth_cell; -- cgit v1.2.3