mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-26 18:01:13 -08:00
Code Issues Projects Releases Wiki Activity

improve comp_lisp_obj_as_ptr_from_ptr generated var naming

Browse source
This commit is contained in:
Andrea Corallo 2019-06-12 03:36:46 +02:00 • committed by Andrea Corallo
parent edcadf5c44
commit 203b6ce9fa
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/comp.c
View file

@ -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,