From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Wed, 12 Jun 2019 01:36:46 +0000 (+0200)
Subject: improve comp_lisp_obj_as_ptr_from_ptr generated var naming
X-Git-Tag: emacs-28.0.90~2727^2~1493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=203b6ce9fa148ca05fc2688a8a1a607dc922acd7;p=emacs.git

improve comp_lisp_obj_as_ptr_from_ptr generated var naming
---

diff --git a/src/comp.c b/src/comp.c
index 5fd11e7a7ee..a14056e4c58 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -379,10 +379,18 @@ comp_make_fixnum (gcc_jit_block *block, gcc_jit_rvalue *obj)
 static gcc_jit_rvalue *
 comp_lisp_obj_as_ptr_from_ptr (basic_block_t *bblock, void *p)
 {
+  static unsigned i;
+  char ptr_var_name[40];
+
+  int res = snprintf (ptr_var_name, sizeof (ptr_var_name),
+		      "lisp_obj_from_ptr_%u", i++);
+  if (res >= sizeof (ptr_var_name))
+    error ("Internal error, truncating temporary variable");
+
   gcc_jit_lvalue *lisp_obj = gcc_jit_function_new_local (comp.func,
 							 NULL,
 							 comp.lisp_obj_type,
-							 "lisp_obj_from_ptr");
+							 ptr_var_name);
   gcc_jit_lvalue *lisp_obj_as_ptr =
     gcc_jit_lvalue_access_field (lisp_obj,
 				 NULL,