pike.git/ src/ builtin_functions.c

2001-04-09

2001-04-09 08:53:19 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• afbf0ae3eba7b5aa1edb768eef0ff1b214e02a85 (5 lines) (+3/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix in functionp()

Rev: src/builtin_functions.c:1.360

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.359 2001/04/08 22:57:39 per Exp $"); + RCSID("$Id: builtin_functions.c,v 1.360 2001/04/09 08:53:19 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
3305:    if(args<1)    SIMPLE_TOO_FEW_ARGS_ERROR("functionp", 1);    if( Pike_sp[-args].type == T_FUNCTION && -  !Pike_sp[-args].u.object->prog ) +  (Pike_sp[-args].subtype == FUNCTION_BUILTIN || Pike_sp[-args].u.object->prog))    res=1;    pop_n_elems(args);    push_int(res);