projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(insert-ideograph-radical-char-data): Don't check about CCS
[chise/xemacs-chise.git-]
/
src
/
elhash.c
diff --git
a/src/elhash.c
b/src/elhash.c
index
058fdd4
..
5bf3476
100644
(file)
--- a/
src/elhash.c
+++ b/
src/elhash.c
@@
-440,7
+440,7
@@
make_standard_lisp_hash_table (enum hash_table_test test,
double rehash_threshold,
enum hash_table_weakness weakness)
{
double rehash_threshold,
enum hash_table_weakness weakness)
{
- hash_table_hash_function_t hash_function = 0;
+ hash_table_hash_function_t hash_function = 0;
hash_table_test_function_t test_function = 0;
switch (test)
hash_table_test_function_t test_function = 0;
switch (test)
@@
-500,13
+500,7
@@
make_general_lisp_hash_table (hash_table_hash_function_t hash_function,
compute_hash_table_derived_values (ht);
/* We leave room for one never-occupied sentinel hentry at the end. */
compute_hash_table_derived_values (ht);
/* We leave room for one never-occupied sentinel hentry at the end. */
- ht->hentries = xnew_array (hentry, ht->size + 1);
-
- {
- hentry *e, *sentinel;
- for (e = ht->hentries, sentinel = e + ht->size; e <= sentinel; e++)
- CLEAR_HENTRY (e);
- }
+ ht->hentries = xnew_array_and_zero (hentry, ht->size + 1);
XSETHASH_TABLE (hash_table, ht);
XSETHASH_TABLE (hash_table, ht);
@@
-1547,5
+1541,5
@@
vars_of_elhash (void)
{
/* This must NOT be staticpro'd */
Vall_weak_hash_tables = Qnil;
{
/* This must NOT be staticpro'd */
Vall_weak_hash_tables = Qnil;
- pdump_wire_list (&Vall_weak_hash_tables);
+ dump_add_weak_object_chain (&Vall_weak_hash_tables);
}
}