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.
27
2001/
02
/
23
14
:
29
:
35
grubba Exp $");
+
RCSID("$Id: constants.c,v 1.
28
2001/
03
/
03
00
:
23
:
45
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:140:
char *type, ptrdiff_t type_length, INT16 flags, optimize_fun optimize, docode_fun docode) { struct svalue s; struct pike_string *n; struct pike_type *t; struct callable *ret;
-
n=make_shared_binary_string(name,name_length);
-
t=make_shared_binary_string(type,type_length);
+
n
=
make_shared_binary_string(name,
name_length);
+
#ifdef
USE_PIKE_TYPE
+
t
=
make_
pike_type(type);
+
#else /* !USE_PIKE_TYPE */
+
t = make_
shared_binary_string(type,
type_length);
+
#endif /* USE_PIKE_TYPE */
#ifdef DEBUG check_type_string(t); #endif s.type=T_FUNCTION; s.subtype=FUNCTION_BUILTIN; add_ref(n); ret=s.u.efun=low_make_callable(fun, n, t, flags, optimize, docode); low_add_efun(n, &s); free_svalue(&s); free_string(n);