From 281d3a7aadefb673917bc585224c9bf7dae449e6 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 16 Aug 2019 08:51:02 +0200 Subject: [PATCH] some renaming --- src/comp.c | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/comp.c b/src/comp.c index e1ffcf94ec4..95bfb5d561b 100644 --- a/src/comp.c +++ b/src/comp.c @@ -340,7 +340,7 @@ emit_call (const char *f_name, gcc_jit_type *ret_type, unsigned nargs, static gcc_jit_rvalue * emit_call_ref (const char *f_name, unsigned nargs, - gcc_jit_lvalue *base_arg) + gcc_jit_lvalue *base_arg) { gcc_jit_rvalue *args[] = { gcc_jit_context_new_rvalue_from_int(comp.ctxt, @@ -1048,33 +1048,33 @@ emit_simple_limple_call_void_ret (Lisp_Object args) /* Entry point to dispatch emitting (call fun ...). */ static gcc_jit_rvalue * -emit_limple_call (Lisp_Object args) +emit_limple_call (Lisp_Object insn) { - Lisp_Object callee_sym = FIRST (args); + Lisp_Object callee_sym = FIRST (insn); char *callee = (char *) SDATA (SYMBOL_NAME (callee_sym)); Lisp_Object emitter = Fgethash (callee_sym, comp.emitter_dispatcher, Qnil); if (!NILP (emitter)) { gcc_jit_rvalue * (* emitter_ptr) (Lisp_Object) = xmint_pointer (emitter); - return emitter_ptr (args); + return emitter_ptr (insn); } else if (callee[0] == 'F') { - return emit_simple_limple_call_lisp_ret (args); + return emit_simple_limple_call_lisp_ret (insn); } error ("LIMPLE call is inconsistent"); } static gcc_jit_rvalue * -emit_limple_call_ref (Lisp_Object args) +emit_limple_call_ref (Lisp_Object insn) { /* Ex: (callref Fplus 2 0). */ - char *callee = (char *) SDATA (SYMBOL_NAME (FIRST (args))); - EMACS_UINT nargs = XFIXNUM (SECOND (args)); - EMACS_UINT base_ptr = XFIXNUM (THIRD (args)); + char *callee = (char *) SDATA (SYMBOL_NAME (FIRST (insn))); + EMACS_UINT nargs = XFIXNUM (SECOND (insn)); + EMACS_UINT base_ptr = XFIXNUM (THIRD (insn)); return emit_call_ref (callee, nargs, comp.frame[base_ptr]); } -- 2.39.5