pike.git/ src/ builtin_functions.c

1999-10-21

1999-10-21 21:34:37 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• aa73fc3cd9b4a5fb8ee6244630671143c02c99b0 (55 lines) (+26/-29) ^{[ Show | Annotate ]}
  Branch: 7.9

some bugfixes for AUTO_BIGNUM

Rev: lib/master.pike.in:1.64
Rev: src/builtin_functions.c:1.190
Rev: src/interpret.h:1.34
Rev: src/program.c:1.161
Rev: src/program.h:1.61
Rev: src/svalue.c:1.49
Rev: src/testsuite.in:1.202

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.189 1999/10/21 11:16:42 noring Exp $"); + RCSID("$Id: builtin_functions.c,v 1.190 1999/10/21 21:34:31 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
2053:   #endif      #ifdef AUTO_BIGNUM - #define TYPEP(ID,NAME,TYPE,TYPE_NAME) \ - void ID(INT32 args) \ - { \ -  int t; \ -  if(args<1) \ -  SIMPLE_TOO_FEW_ARGS_ERROR(NAME, 1); \ -  if(sp[-args].type == T_OBJECT) \ -  { \ -  pop_n_elems(args-1); \ -  args = 1; \ -  stack_dup(); \ -  push_constant_text("_is_type"); \ -  f_index(2); \ -  if(sp[-1].type == T_FUNCTION || sp[-1].type == T_OBJECT) \ -  { \ -  struct svalue val; \ -  push_constant_text(TYPE_NAME); \ -  apply_svalue(&sp[-2], 1); \ -  val = *--sp; \ -  pop_n_elems(2); \ -  *sp++ = val; \ -  return; \ -  } \ -  pop_stack(); \ -  } \ -  t=sp[-args].type == TYPE; \ -  pop_n_elems(args); \ -  push_int(t); \ + /* This should probably be here weather AUTO_BIGNUM is defined or not, +  * but it can wait a little. /Hubbe +  */ +  + #define TYPEP(ID,NAME,TYPE,TYPE_NAME) \ + void ID(INT32 args) \ + { \ +  int t; \ +  if(args<1) \ +  SIMPLE_TOO_FEW_ARGS_ERROR(NAME, 1); \ +  if(sp[-args].type == T_OBJECT && sp[-args].u.object->prog) \ +  { \ +  int fun=FIND_LFUN(sp[-args].u.object->prog,LFUN__IS_TYPE); \ +  if(fun != -1) \ +  { \ +  push_constant_text(TYPE_NAME); \ +  apply_low(sp[-args-1].u.object,fun,1); \ +  stack_unlink(args); \ +  return; \ +  } \ +  } \ +  t=sp[-args].type == TYPE; \ +  pop_n_elems(args); \ +  push_int(t); \   }   #else   #define TYPEP(ID,NAME,TYPE) \