pike.git
/
src
/
constants.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/constants.c:1:
/*\ ||| This file a part of Pike, and is copyright by Fredrik Hubinette ||| Pike is distributed as GPL (General Public License) ||| See the files COPYING and DISCLAIMER for more information. \*/
+
/**/
#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" #include "mapping.h" #include "error.h" #include "block_alloc.h"
-
RCSID("$Id: constants.c,v 1.
19
1999/12/
07
09
:
40
:
54
hubbe
Exp $");
+
RCSID("$Id: constants.c,v 1.
20
1999/12/
29
18
:
00
:
32
grubba
Exp $");
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:81:
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);
+
struct pike_string *z=check_call(function_type_string,type
,0
);
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,