pike.git / src / constants.c

version» Context lines:

pike.git/src/constants.c:9:   #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 "pike_error.h"   #include "block_alloc.h"    - RCSID("$Id: constants.c,v 1.24 2000/12/01 08:09:44 hubbe Exp $"); + RCSID("$Id: constants.c,v 1.25 2001/02/19 23:49:59 grubba Exp $");      struct mapping *builtin_constants = 0;      PMOD_EXPORT struct mapping *get_builtin_constants(void)   {    if(!builtin_constants)    builtin_constants=allocate_mapping(20);       return builtin_constants;   }
pike.git/src/constants.c:59:   {    struct svalue s;    s.type=T_PROGRAM;    s.subtype=0;    s.u.program=p;    low_add_constant(name, &s);   }      #undef EXIT_BLOCK   #define EXIT_BLOCK(X) do { \ -  free_string(X->type); \ +  free_type(X->type); \    free_string(X->name); \   }while(0)   BLOCK_ALLOC(callable,128)      /* Eats one ref to 'type' and 'name' */   PMOD_EXPORT struct callable *low_make_callable(c_fun fun,    struct pike_string *name,    struct pike_string *type,    INT16 flags,    optimize_fun optimize,