pike.git/ src/ builtin_functions.c

1999-10-19

1999-10-19 22:21:32 by Fredrik Noring <noring@nocrew.org>

• 39ac736ba0868c47c11cca48d428e3bb09746331 (21 lines) (+19/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Bignum additions: a) small number function call emulation using Gmp, b) intp, c) sprintf %O (describe_svalue), d) sqrt and e) casting from float to integer.

Rev: src/bignum.c:1.4
Rev: src/bignum.h:1.5
Rev: src/builtin_functions.c:1.188
Rev: src/modules/_math/math.c:1.23
Rev: src/opcodes.c:1.44
Rev: src/svalue.c:1.46

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.187 1999/10/19 15:30:43 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.188 1999/10/19 22:21:28 noring Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
39:   #include "signal_handler.h"   #include "security.h"   #include "builtin_functions.h" + #include "bignum.h"      #ifdef HAVE_POLL   #ifdef HAVE_POLL_H
2087:    }   }    - TYPEP(f_intp, "intpp", T_INT) + #ifdef AUTO_BIGNUM + void f_intp(INT32 args) + { +  int t; +  +  if(args<1) +  SIMPLE_TOO_FEW_ARGS_ERROR("intp", 1); +  +  t = (sp[-args].type == T_INT) || is_bignum_object_in_svalue(&sp[-args]); +  pop_n_elems(args); +  push_int(t); + } + #else + TYPEP(f_intp, "intp", T_INT) + #endif /* AUTO_BIGNUM */ +    TYPEP(f_mappingp, "mappingp", T_MAPPING)   TYPEP(f_arrayp, "arrayp", T_ARRAY)   TYPEP(f_multisetp, "multisetp", T_MULTISET)