pike.git / src / constants.c

version» Context lines:

pike.git/src/constants.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/ + /**/   #include "global.h"   #include "constants.h"   #include "pike_macros.h"   #include "program.h"   #include "pike_types.h"   #include "stralloc.h"   #include "pike_memory.h"   #include "interpret.h"   #include "mapping.h"   #include "error.h"   #include "block_alloc.h"    - RCSID("$Id: constants.c,v 1.19 1999/12/07 09:40:54 hubbe Exp $"); + RCSID("$Id: constants.c,v 1.20 1999/12/29 18:00:32 grubba Exp $");      static struct mapping *builtin_constants = 0;      struct mapping *get_builtin_constants(void)   {    if(!builtin_constants)    builtin_constants=allocate_mapping(20);       return builtin_constants;   }
pike.git/src/constants.c:81:    struct callable *f=alloc_callable();    f->refs=1;    f->function=fun;    f->name=name;    f->type=type;    f->flags=flags;    f->docode=docode;    f->optimize=optimize;   #ifdef PIKE_DEBUG    { -  struct pike_string *z=check_call(function_type_string,type); +  struct pike_string *z=check_call(function_type_string,type,0);    f->may_return_void= z == void_type_string;    if(!z) fatal("Gnapp!\n");    free_string(z);    }   #endif    return f;   }      struct callable *make_callable(c_fun fun,    char *name,