summaryrefslogtreecommitdiff
path: root/src/eval.c
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2025-06-21 11:53:24 +0300
committerEli Zaretskii <eliz@gnu.org>2025-06-21 11:53:24 +0300
commitdd95447b05eb2e86e0500d953f43213df028c19a (patch)
tree16ee3907020f2049ff51cecce8e229e6c0575117 /src/eval.c
parent075ebed98fea274b363d4d015b32edb0a12a9a89 (diff)
Avoid segfault when profiling Lisp programs with threads
* src/eval.c (backtrace_top): Don't segfault if current_thread is NULL. (Bug#76970)
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c
index 46705dc4543..4c514001d9d 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -171,7 +171,7 @@ backtrace_top (void)
/* This is so "xbacktrace" doesn't crash in pdumped Emacs if they
invoke the command before init_eval_once_for_pdumper initializes
specpdl machinery. See also backtrace_p above. */
- if (!specpdl)
+ if (!current_thread || !specpdl)
return NULL;
union specbinding *pdl = specpdl_ptr - 1;