From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Fri, 24 May 2019 14:08:52 +0000 (+0200)
Subject: add jit_emit_callN
X-Git-Tag: emacs-28.0.90~2727^2~1527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ce8092a01519acd2afe29a68b11809280677ad7;p=emacs.git

add jit_emit_callN
---

diff --git a/src/comp.c b/src/comp.c
index d8a5545d6ee..feec3c965e0 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -273,7 +273,8 @@ jit_emit_call (const char *f_name, gcc_jit_type *ret_type, unsigned nargs,
 }
 
 static gcc_jit_lvalue *
-jit_emit_Ffuncall (unsigned nargs, gcc_jit_rvalue **args)
+jit_emit_callN (gcc_jit_function *func, unsigned nargs,
+		   gcc_jit_rvalue **args)
 {
   /* Here we set all the pointers into the scratch call area.  */
   /* TODO: distinguish primitives for faster calling convention.  */
@@ -327,7 +328,7 @@ jit_emit_Ffuncall (unsigned nargs, gcc_jit_rvalue **args)
 			       res,
 			       gcc_jit_context_new_call(comp.ctxt,
 							NULL,
-							comp.Ffuncall,
+							func,
 							2,
 							args));
   return res;
@@ -512,7 +513,7 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
 	  {
 	    ptrdiff_t nargs = op + 1;
 	    pop (nargs, &stack, args);
-	    res = jit_emit_Ffuncall (nargs, args);
+	    res = jit_emit_callN (comp.Ffuncall, nargs, args);
 	    PUSH (gcc_jit_lvalue_as_rvalue (res));
 	    break;
 	  }