From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 30 Jun 2019 10:07:32 +0000 (+0200)
Subject: pass orig lisp f name into compile_f
X-Git-Tag: emacs-28.0.90~2727^2~1415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45c1b64ce68ea4416141d66af07bb24f4fda9930;p=emacs.git

pass orig lisp f name into compile_f
---

diff --git a/src/comp.c b/src/comp.c
index 3f4c0d8aaa3..fa5b6217169 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -2023,8 +2023,8 @@ release_comp (void)
 }
 
 static comp_f_res_t
-compile_f (const char *f_name, ptrdiff_t bytestr_length,
-	   unsigned char *bytestr_data,
+compile_f (const char *lisp_f_name, const char *c_f_name,
+	   ptrdiff_t bytestr_length, unsigned char *bytestr_data,
 	   EMACS_INT stack_depth, Lisp_Object *vectorp,
 	   ptrdiff_t vector_size, Lisp_Object args_template)
 {
@@ -2067,7 +2067,7 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
 
 
   /* Current function being compiled.  */
-  comp.func = emit_func_declare (f_name, comp.lisp_obj_type, comp_res.max_args,
+  comp.func = emit_func_declare (c_f_name, comp.lisp_obj_type, comp_res.max_args,
 				 NULL, GCC_JIT_FUNCTION_EXPORTED, false);
 
   gcc_jit_lvalue *meta_stack_array =
@@ -3157,8 +3157,8 @@ emacs_native_compile (const char *lisp_f_name, const char *c_f_name,
   sigset_t oldset;
   block_atimers (&oldset);
 
-  comp_f_res_t comp_res = compile_f (c_f_name, bytestr_length, SDATA (bytestr),
-				     XFIXNAT (maxdepth) + 1,
+  comp_f_res_t comp_res = compile_f (lisp_f_name, c_f_name, bytestr_length,
+				     SDATA (bytestr), XFIXNAT (maxdepth) + 1,
 				     vectorp, ASIZE (vector),
 				     AREF (func, COMPILED_ARGLIST));