From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Thu, 15 Aug 2019 19:19:24 +0000 (+0200)
Subject: remove duplicate code
X-Git-Tag: emacs-28.0.90~2727^2~1281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b72d1c5b157214bc8feb4e6364ba624f9feae271;p=emacs.git

remove duplicate code
---

diff --git a/src/comp.c b/src/comp.c
index 6aa86e37a1c..4838160d40f 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -339,7 +339,7 @@ emit_call (const char *f_name, gcc_jit_type *ret_type, unsigned nargs,
 }
 
 static gcc_jit_rvalue *
-emit_call_n_ref (const char *f_name, unsigned nargs,
+emit_call_ref (const char *f_name, unsigned nargs,
 		 gcc_jit_lvalue *base_arg)
 {
   gcc_jit_rvalue *args[] =
@@ -1092,13 +1092,7 @@ emit_limple_call_ref (Lisp_Object args)
   char *callee = (char *) SDATA (SYMBOL_NAME (FIRST (args)));
   EMACS_UINT nargs = XFIXNUM (SECOND (args));
   EMACS_UINT base_ptr = XFIXNUM (THIRD (args));
-  gcc_jit_rvalue *gcc_args[2] =
-    { gcc_jit_context_new_rvalue_from_int (comp.ctxt,
-					   comp.ptrdiff_type,
-					   nargs),
-      gcc_jit_lvalue_get_address (comp.frame[base_ptr], NULL) };
-
-  return emit_call (callee, comp.lisp_obj_type, 2, gcc_args);
+  return emit_call_ref (callee, nargs, comp.frame[base_ptr]);
 }
 
 /* Register an handler for a non local exit.  */
@@ -2146,7 +2140,7 @@ define_negate (void)
 				 emit_make_fixnum (inline_res));
 
   comp.block = fcall_block;
-  gcc_jit_rvalue *call_res = emit_call_n_ref ("Fminus", 1, n);
+  gcc_jit_rvalue *call_res = emit_call_ref ("Fminus", 1, n);
   gcc_jit_block_end_with_return (fcall_block,
 				 NULL,
 				 call_res);