pike.git/ src/ builtin_functions.c

1999-11-12

1999-11-12 07:33:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 3905cf25f28382a024ed3cb441308db2df0dddf8 (9 lines) (+7/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

objectp() and sprintf("%t"..) fixed for bignums (I hope)

Rev: src/bignum.c:1.13
Rev: src/builtin_functions.c:1.205
Rev: src/modules/Gmp/mpz_glue.c:1.66

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.204 1999/11/08 20:50:48 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.205 1999/11/12 07:33:36 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
1962:   {    if(args<1)    SIMPLE_TOO_FEW_ARGS_ERROR("objectp", 1); -  if(sp[-args].type != T_OBJECT || !sp[-args].u.object->prog) +  if(sp[-args].type != T_OBJECT || !sp[-args].u.object->prog + #ifdef AUTO_BIGNUM +  || is_bignum_object(sp[-args].u.object) + #endif +  )    {    pop_n_elems(args);    push_int(0);