diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2017-02-21 15:31:29 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-02-21 15:39:17 -0800 |
commit | 83c9c6fc1cc943f239a021b42a8ca9b0e162198c (patch) | |
tree | eb0a1840bc941357c4dffac5050776b5e8165cd3 /src/profiler.c | |
parent | 5cbdaa98f975c870c4afa24346630a18b55f27ab (diff) | |
download | emacs-83c9c6fc1cc943f239a021b42a8ca9b0e162198c.tar.gz |
Use float instead of Lisp_Object for rehash_size
* src/alloc.c (purecopy_hash_table):
* src/fns.c (maybe_resize_hash_table, Fmake_hash_table):
(Fhash_table_rehash_size):
* src/lisp.h (struct Lisp_Hash_Table.rehash_size):
The rehash_size member of struct Lisp_Hash_Table is now a
float, not a Lisp_Object.
* src/alloc.c (purecopy_hash_table): Assign members in order.
* src/fns.c (make_hash_table): Use EMACS_INT for size and
float for rehash_size, instead of Lisp_Object for both.
All callers changed.
* src/lisp.h (DEFAULT_REHASH_SIZE): Now float, not double,
and 1 smaller.
* src/print.c (print_object): Simplify by calling
Fhash_table_rehash_size and Fhash_table_rehash_threshold.
Avoid unnecessary NILP.
Diffstat (limited to 'src/profiler.c')
-rw-r--r-- | src/profiler.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/profiler.c b/src/profiler.c index 08ef6ee9623..6dc0d8ce72d 100644 --- a/src/profiler.c +++ b/src/profiler.c @@ -44,9 +44,8 @@ make_log (EMACS_INT heap_size, EMACS_INT max_stack_depth) a special way. This is OK as long as the object is not exposed to Elisp, i.e. until it is returned by *-profiler-log, after which it can't be used any more. */ - Lisp_Object log = make_hash_table (hashtest_profiler, - make_number (heap_size), - make_float (DEFAULT_REHASH_SIZE), + Lisp_Object log = make_hash_table (hashtest_profiler, heap_size, + DEFAULT_REHASH_SIZE, DEFAULT_REHASH_THRESHOLD, Qnil, false); struct Lisp_Hash_Table *h = XHASH_TABLE (log); |