Branch: Tag:

1999-11-12

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

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

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.65 1999/11/01 16:53:37 mirar Exp $"); + RCSID("$Id: mpz_glue.c,v 1.66 1999/11/12 07:33:45 hubbe Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
370:       switch(sp[-args].u.integer)    { + #ifdef AUTO_BIGNUM +  case 't': +  pop_n_elems(args); +  if(THIS_PROGRAM == bignum_program) +  push_constant_text("int"); +  else +  push_constant_text("object"); +  return; + #endif    case 'O':    case 'u': /* Note: 'u' is not really supported. */    case 'd':