pike.git/ src/ constants.c

2001-03-03

2001-03-03 00:24:40 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 8a2a5284e7ef41b1c6f335339c855e7bc5b793e8 (11 lines) (+8/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Now uses MAKE_CONSTANT_TYPE().

Rev: src/builtin_functions.c:1.348
Rev: src/constants.c:1.28
Rev: src/las.c:1.242
Rev: src/program.c:1.300

16:   #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;   
147:    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