pike.git
/
src
/
constants.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/constants.c:8:
#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 "error.h" #include "block_alloc.h"
-
RCSID("$Id: constants.c,v 1.
16
1999/04/
08
23
:
54
:
26
hubbe Exp $");
+
RCSID("$Id: constants.c,v 1.
17
1999/04/
15
04
:
08
:
09
hubbe Exp $");
static INT32 num_callable=0; static struct mapping *builtin_constants = 0; struct mapping *get_builtin_constants(void) { if(!builtin_constants) builtin_constants=allocate_mapping(20); return builtin_constants;
pike.git/src/constants.c:83:
docode_fun docode) { struct callable *f=alloc_callable(); f->refs=1; f->function=fun; f->name=name; f->type=type; f->flags=flags; f->docode=docode; f->optimize=optimize;
+
#ifdef PIKE_DEBUG
+
{
+
struct pike_string *z=check_call(function_type_string,type);
+
f->may_return_void= z == void_type_string;
+
if(!z) fatal("Gnapp!\n");
+
free_string(z);
+
}
+
#endif
return f; } struct callable *make_callable(c_fun fun, char *name, char *type, INT16 flags, optimize_fun optimize, docode_fun docode) {