pike.git / src / constants.c

version» Context lines:

pike.git/src/constants.c:10:   #include "program.h"   #include "pike_types.h"   #include "stralloc.h"   #include "pike_memory.h"   #include "interpret.h"   #include "mapping.h"   #include "pike_error.h"   #include "security.h"   #include "block_alloc.h"    - RCSID("$Id: constants.c,v 1.37 2002/06/25 14:26:40 grubba Exp $"); + RCSID("$Id: constants.c,v 1.38 2002/08/15 14:49:20 marcus Exp $");      struct mapping *builtin_constants = 0;      PMOD_EXPORT struct mapping *get_builtin_constants(void)   {    return builtin_constants;   }      void low_add_efun(struct pike_string *name, struct svalue *fun)   {
pike.git/src/constants.c:84:    f->name=name;    f->type=type;    f->flags=flags;    f->docode=docode;    f->optimize=optimize;    f->internal_flags = global_callable_flags;   #ifdef PIKE_DEBUG    {    struct pike_type *z = check_call(function_type_string, type, 0);    f->may_return_void = (z == void_type_string); -  if(!z) fatal("Gnapp!\n"); +  if(!z) Pike_fatal("Gnapp!\n");    free_type(z);    }    f->runs=0;    f->compiles=0;   #endif    return f;   }      PMOD_EXPORT struct callable *make_callable(c_fun fun,    char *name,