pike.git / src / constants.c

version» Context lines:

pike.git/src/constants.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: constants.c,v 1.56 2006/01/14 18:18:45 nilsson Exp $ + || $Id: constants.c,v 1.57 2007/04/17 12:20:46 grubba Exp $   */      #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"
pike.git/src/constants.c:61:    free_string(val);    free_string(key);   }      PMOD_EXPORT void add_global_program(const char *name, struct program *p)   {    struct svalue s;    s.type=T_PROGRAM;    s.subtype=0;    s.u.program=p; -  low_add_constant(name, &s); +  low_add_constant(name, p?&s:NULL);   }      #undef INIT_BLOCK   #define INIT_BLOCK(X) do { \    DO_IF_DEBUG (DOUBLELINK (first_callable, X)); \    } while (0)      #undef EXIT_BLOCK   #define EXIT_BLOCK(X) do { \    DO_IF_DEBUG (DOUBLEUNLINK (first_callable, X)); \