pike.git
/
src
/
constants.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/constants.c:10:
#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 "security.h" #include "block_alloc.h"
-
RCSID("$Id: constants.c,v 1.
31
2001/
07
/02
04
:
09
:
47
hubbe Exp $");
+
RCSID("$Id: constants.c,v 1.
32
2001/
08
/02
22
:
24
:
53
hubbe 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:67:
#undef EXIT_BLOCK #define EXIT_BLOCK(X) do { \ free_type(X->type); \ free_string(X->name); \ X->name=0; \ EXIT_PIKE_MEMOBJ(X); \ }while(0) BLOCK_ALLOC(callable,128)
+
int global_callable_flags=0;
+
/* Eats one ref to 'type' and 'name' */ PMOD_EXPORT struct callable *low_make_callable(c_fun fun, struct pike_string *name, struct pike_type *type, INT16 flags, optimize_fun optimize, docode_fun docode) { struct callable *f=alloc_callable(); INIT_PIKE_MEMOBJ(f); f->function=fun; f->name=name; f->type=type; f->flags=flags; f->docode=docode; f->optimize=optimize;
-
+
f->internal_flags = global_callable_flags;
#ifdef PIKE_DEBUG { struct pike_type *z = check_call(function_type_string, type, 0); f->may_return_void = (z == void_type_string); if(!z) fatal("Gnapp!\n"); free_type(z); } f->runs=0; f->compiles=0; #endif