pike.git/ src/ builtin_functions.c

1996-11-27

1996-11-27 06:02:48 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 3f6d8f3c48d20676157b8914e6967dc7439f1452 (16 lines) (+10/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

zero_type now accepts any type

Rev: doc/builtin/zero_type:1.2
Rev: src/builtin_functions.c:1.12

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.11 1996/11/26 20:50:15 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.12 1996/11/27 05:48:49 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "macros.h"
512:    if(args < 1)    error("Too few arguments to zero_type()\n");    if(sp[-args].type != T_INT) -  error("Bad argument 1 to zero_type.\n"); -  +  { +  pop_n_elems(args); +  push_int(0); +  }else{    pop_n_elems(args-1);    sp[-1].u.integer=sp[-1].subtype;    sp[-1].subtype=NUMBER_NUMBER;    } -  + }      void f_all_constants(INT32 args)   {