pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/program.c:1:
/* || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: program.c,v 1.
558
2004/03/
13
19
:
50
:
23
grubba
Exp $
+
|| $Id: program.c,v 1.
559
2004/03/
14
05
:
45
:
00
nilsson
Exp $
*/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
558
2004/03/
13
19
:
50
:
23
grubba
Exp $");
+
RCSID("$Id: program.c,v 1.
559
2004/03/
14
05
:
45
:
00
nilsson
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h" #include "pike_types.h" #include "stralloc.h" #include "las.h" #include "language.h" #include "lex.h" #include "pike_macros.h" #include "fsort.h"
pike.git/src/program.c:6915:
MAKE_CONST_STRING(this_program_string,"this_program"); MAKE_CONST_STRING(this_string,"this"); MAKE_CONST_STRING(UNDEFINED_string,"UNDEFINED"); lfun_ids = allocate_mapping(NUM_LFUNS); lfun_types = allocate_mapping(NUM_LFUNS); for (i=0; i < NELEM(lfun_names); i++) { lfun_strings[i] = make_shared_string(lfun_names[i]); id.type = T_INT;
+
id.subtype = NUMBER_NUMBER;
id.u.integer = i; key.type = T_STRING; key.u.string = lfun_strings[i]; mapping_insert(lfun_ids, &key, &id); val.type = T_TYPE; val.u.type = make_pike_type(raw_lfun_types[i]); mapping_insert(lfun_types, &key, &val); free_type(val.u.type); }