aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/profiler.c21
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
37typedef struct Lisp_Hash_Table log_t; 37typedef struct Lisp_Hash_Table log_t;
38 38
39static struct hash_table_test hashtest_profiler; 39static bool cmpfn_profiler (
40 struct hash_table_test *, Lisp_Object, Lisp_Object);
41
42static EMACS_UINT hashfn_profiler (
43 struct hash_table_test *, Lisp_Object);
44
45static 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
41static Lisp_Object 54static Lisp_Object
42make_log (EMACS_INT heap_size, EMACS_INT max_stack_depth) 55make_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