From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 15 Jun 2019 16:34:18 +0000 (+0200)
Subject: add emit_BIGNUMP
X-Git-Tag: emacs-28.0.90~2727^2~1477
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb4ce8b31c53a927f8ec8b542ad90acd14e951de;p=emacs.git

add emit_BIGNUMP
---

diff --git a/src/comp.c b/src/comp.c
index e74e67d1175..a18ed07391b 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -503,13 +503,6 @@ emit_CONSP (gcc_jit_rvalue *obj)
   return emit_TAGGEDP(obj, Lisp_Cons);
 }
 
-/* static gcc_jit_rvalue * */
-/* emit_BIGNUMP (gcc_jit_rvalue *obj) */
-/* { */
-
-/* } */
-
-
 /* Declare a substitute for PSEUDOVECTORP as inline function.  */
 
 static void
@@ -576,6 +569,21 @@ declare_PSEUDOVECTORP (void)
 					    args));
 }
 
+static gcc_jit_rvalue *
+emit_BIGNUMP (gcc_jit_rvalue *obj)
+{
+  gcc_jit_rvalue *args[2] = {
+    obj,
+    gcc_jit_context_new_rvalue_from_int (comp.ctxt,
+					 comp.int_type,
+					 PVEC_BIGNUM) };
+
+  return emit_call ("PSEUDOVECTORP",
+		    comp.bool_type,
+		    2,
+		    args);
+}
+
 static gcc_jit_rvalue *
 emit_FIXNUMP (gcc_jit_rvalue *obj)
 {