improve comp_lisp_obj_as_ptr_from_ptr generated var naming

diff --git a/src/comp.c b/src/comp.c
index 5fd11e7a7ee283c6785a03cb8f3e4a8c234d4cfb..a14056e4c583b32db241dd42cb79013b9c0fa79f 100644 (file)
--- 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,