From f37c65b402f8a054fed9a3d6234cb7f85da3621a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 22 Jul 2023 17:20:51 -0400 Subject: [PATCH] * src/eval.c (get_backtrace): Don't skip the top frame `profiler.el` was reporting incomplete backtraces. I had a suspicion there was something off, but it became obvious when I saw that `set-buffer-multibyte` did not appear in the `profiler-report` output when opening a large compressed tarball, even though I knew it to be a large contributor (which `elp-results` confirmed). I have no idea why this `backtrace_next` was there, sadly, but now `profiler-report` gives me results that make a lot more sense. --- src/eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/eval.c b/src/eval.c index 3f4e77cd3b1..9e54d489a3b 100644 --- a/src/eval.c +++ b/src/eval.c @@ -4203,7 +4203,7 @@ mark_specpdl (union specbinding *first, union specbinding *ptr) void get_backtrace (Lisp_Object array) { - union specbinding *pdl = backtrace_next (backtrace_top ()); + union specbinding *pdl = backtrace_top (); ptrdiff_t i = 0, asize = ASIZE (array); /* Copy the backtrace contents into working memory. */ -- 2.39.5