pike.git/ src/ builtin_functions.c

1999-10-09

1999-10-09 23:29:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• e37a3eed8b20aa9c5b46435cce751cbeb3fbafe7 (11 lines) (+10/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

some fixes for auto_bignum stuff

Rev: lib/master.pike.in:1.59
Rev: src/bignum.c:1.2
Rev: src/bignum.h:1.3
Rev: src/builtin_functions.c:1.184
Rev: src/language.yacc:1.125
Rev: src/main.c:1.77
Rev: src/operators.c:1.62
Rev: src/program.c:1.158

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.183 1999/09/06 11:12:08 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.184 1999/10/09 23:28:57 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
349:   void f_random_seed(INT32 args)   {    INT_TYPE i; + #ifdef AUTO_BIGNUM +  check_all_args("random_seed",args,BIT_INT | BIT_OBJECT, 0); +  if(sp[-args].type == T_INT) +  i=sp[-args].u.integer; +  else +  i=hash_svalue(sp-args); + #else    get_all_args("random_seed",args,"%i",&i); -  + #endif    my_srand(i);    pop_n_elems(args);   }