typedef struct Lisp_Hash_Table log_t;
+static Lisp_Object Qautomatic_gc;
static Lisp_Object Qprofiler_backtrace_equal;
static struct hash_table_test hashtest_profiler;
void
syms_of_profiler (void)
{
+#include "profiler.x"
+
DEFVAR_INT ("profiler-max-stack-depth", profiler_max_stack_depth,
doc: /* Number of elements from the call-stack recorded in the log. */);
profiler_max_stack_depth = 16;
to make room for new entries. */);
profiler_log_size = 10000;
+ DEFSYM (Qautomatic_gc, "Automatic GC");
DEFSYM (Qprofiler_backtrace_equal, "profiler-backtrace-equal");
hashtest_profiler.name = Qprofiler_backtrace_equal;
hashtest_profiler.cmpfn = cmpfn_profiler;
hashtest_profiler.hashfn = hashfn_profiler;
- defsubr (&Sfunction_equal);
-
#ifdef PROFILER_CPU_SUPPORT
profiler_cpu_running = NOT_RUNNING;
cpu_log = Qnil;
staticpro (&cpu_log);
- defsubr (&Sprofiler_cpu_start);
- defsubr (&Sprofiler_cpu_stop);
- defsubr (&Sprofiler_cpu_running_p);
- defsubr (&Sprofiler_cpu_log);
#endif
profiler_memory_running = false;
memory_log = Qnil;
staticpro (&memory_log);
- defsubr (&Sprofiler_memory_start);
- defsubr (&Sprofiler_memory_stop);
- defsubr (&Sprofiler_memory_running_p);
- defsubr (&Sprofiler_memory_log);
}