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