add emit_BIGNUMP

diff --git a/src/comp.c b/src/comp.c
index e74e67d117534e9761f626c43f6bd28fc053e366..a18ed07391be2aeab6e6782096a6f33b47075cb2 100644 (file)
--- 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)
 {