pike.git
/
src
/
constants.c
version
»
Context lines:
10
20
40
80
file
none
3
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)); \