X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2254b6c09cff8f3a83684fd159289d0e305b0e7d..a3f3cd7c4a79ba54f00ebd8424db3137f297517b:/src/eval.c

diff --git a/src/eval.c b/src/eval.c
index 4f7f42f1eb..9bdcf4bed1 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -200,6 +200,12 @@ backtrace_next (union specbinding *pdl)
   return pdl;
 }
 
+/* Return a pointer to somewhere near the top of the C stack.  */
+void *
+near_C_stack_top (void)
+{
+  return backtrace_args (backtrace_top ());
+}
 
 void
 init_eval_once (void)