diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/profiler.c | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/src/profiler.c b/src/profiler.c index 76245750ada..a98d967b2a1 100644 --- a/src/profiler.c +++ b/src/profiler.c | |||
| @@ -36,7 +36,20 @@ saturated_add (EMACS_INT a, EMACS_INT b) | |||
| 36 | 36 | ||
| 37 | typedef struct Lisp_Hash_Table log_t; | 37 | typedef struct Lisp_Hash_Table log_t; |
| 38 | 38 | ||
| 39 | static struct hash_table_test hashtest_profiler; | 39 | static bool cmpfn_profiler ( |
| 40 | struct hash_table_test *, Lisp_Object, Lisp_Object); | ||
| 41 | |||
| 42 | static EMACS_UINT hashfn_profiler ( | ||
| 43 | struct hash_table_test *, Lisp_Object); | ||
| 44 | |||
| 45 | static const struct hash_table_test hashtest_profiler = | ||
| 46 | { | ||
| 47 | LISPSYM_INITIALLY (Qprofiler_backtrace_equal), | ||
| 48 | LISPSYM_INITIALLY (Qnil) /* user_hash_function */, | ||
| 49 | LISPSYM_INITIALLY (Qnil) /* user_cmp_function */, | ||
| 50 | cmpfn_profiler, | ||
| 51 | hashfn_profiler, | ||
| 52 | }; | ||
| 40 | 53 | ||
| 41 | static Lisp_Object | 54 | static Lisp_Object |
| 42 | make_log (EMACS_INT heap_size, EMACS_INT max_stack_depth) | 55 | make_log (EMACS_INT heap_size, EMACS_INT max_stack_depth) |
| @@ -587,12 +600,6 @@ to make room for new entries. */); | |||
| 587 | 600 | ||
| 588 | DEFSYM (Qprofiler_backtrace_equal, "profiler-backtrace-equal"); | 601 | DEFSYM (Qprofiler_backtrace_equal, "profiler-backtrace-equal"); |
| 589 | 602 | ||
| 590 | hashtest_profiler.name = Qprofiler_backtrace_equal; | ||
| 591 | hashtest_profiler.user_hash_function = Qnil; | ||
| 592 | hashtest_profiler.user_cmp_function = Qnil; | ||
| 593 | hashtest_profiler.cmpfn = cmpfn_profiler; | ||
| 594 | hashtest_profiler.hashfn = hashfn_profiler; | ||
| 595 | |||
| 596 | defsubr (&Sfunction_equal); | 603 | defsubr (&Sfunction_equal); |
| 597 | 604 | ||
| 598 | #ifdef PROFILER_CPU_SUPPORT | 605 | #ifdef PROFILER_CPU_SUPPORT |