diff options
author | Son Ho | 2023-01-13 16:44:25 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | c52add165764d3a0b68ee5181901109078e9b19b (patch) | |
tree | 782758a96e6b1a8b9998e631a2a91af193846459 /tests/coq/hashmap_on_disk | |
parent | e69382acbcc4bdd27612c9cf8ec282db71f8408d (diff) |
Update the hashmap and regenerate
Diffstat (limited to 'tests/coq/hashmap_on_disk')
-rw-r--r-- | tests/coq/hashmap_on_disk/HashmapMain_Funs.v | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/tests/coq/hashmap_on_disk/HashmapMain_Funs.v b/tests/coq/hashmap_on_disk/HashmapMain_Funs.v index 670e527a..7c86dbe1 100644 --- a/tests/coq/hashmap_on_disk/HashmapMain_Funs.v +++ b/tests/coq/hashmap_on_disk/HashmapMain_Funs.v @@ -58,8 +58,8 @@ Definition hashmap_hash_map_new_fwd hashmap_hash_map_new_with_capacity_fwd T n (32%usize) (4%usize) (5%usize) . -(** [hashmap_main::hashmap::HashMap::{0}::clear_slots] *) -Fixpoint hashmap_hash_map_clear_slots_loop_fwd_back +(** [hashmap_main::hashmap::HashMap::{0}::clear] *) +Fixpoint hashmap_hash_map_clear_loop_fwd_back (T : Type) (n : nat) (slots : vec (Hashmap_list_t T)) (i : usize) : result (vec (Hashmap_list_t T)) := @@ -71,25 +71,19 @@ Fixpoint hashmap_hash_map_clear_slots_loop_fwd_back then ( i1 <- usize_add i 1%usize; slots0 <- vec_index_mut_back (Hashmap_list_t T) slots i HashmapListNil; - hashmap_hash_map_clear_slots_loop_fwd_back T n0 slots0 i1) + hashmap_hash_map_clear_loop_fwd_back T n0 slots0 i1) else Return slots end . -(** [hashmap_main::hashmap::HashMap::{0}::clear_slots] *) -Definition hashmap_hash_map_clear_slots_fwd_back - (T : Type) (n : nat) (slots : vec (Hashmap_list_t T)) : - result (vec (Hashmap_list_t T)) - := - hashmap_hash_map_clear_slots_loop_fwd_back T n slots (0%usize) -. - (** [hashmap_main::hashmap::HashMap::{0}::clear] *) Definition hashmap_hash_map_clear_fwd_back (T : Type) (n : nat) (self : Hashmap_hash_map_t T) : result (Hashmap_hash_map_t T) := - v <- hashmap_hash_map_clear_slots_fwd_back T n self.(Hashmap_hash_map_slots); + v <- + hashmap_hash_map_clear_loop_fwd_back T n self.(Hashmap_hash_map_slots) + (0%usize); Return (mkHashmap_hash_map_t (0%usize) self.(Hashmap_hash_map_max_load_factor) self.(Hashmap_hash_map_max_load) v) . |