From: Andrea Corallo 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) {