pike.git / src / constants.c

version» Context lines:

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);