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.
656
2008/
03
/
29
16
:
20
:
18
mast
Exp $
+
|| $Id: program.c,v 1.
657
2008/
04
/
06
11
:
49
:
58
grubba
Exp $
*/ #include "global.h" #include "program.h" #include "object.h" #include "dynamic_buffer.h" #include "pike_types.h" #include "stralloc.h" #include "las.h" #include "lex.h"
pike.git/src/program.c:2355:
struct svalue tmp; #ifdef WITH_FACETS if(Pike_compiler->compiler_pass == 1 && p) { p->facet_class = 0; p->facet_index = -1; p->facet_group = NULL; } #endif
-
#if 0
-
#ifdef SHARED_NODES
-
if (!node_hash.table) {
-
node_hash.table = malloc(sizeof(node *)*32831);
-
if (!node_hash.table) {
-
Pike_fatal("Out of memory!\n");
-
}
-
MEMSET(node_hash.table, 0, sizeof(node *)*32831);
-
node_hash.size = 32831;
-
}
-
#endif /* SHARED_NODES */
-
#endif /* 0 */
-
+
/* We don't want to change thread, but we don't want to
-
* wait for the other threads to complete.
+
* wait for the other threads to complete
either
.
*/ low_init_threads_disable(); compilation_depth++; if (!Pike_compiler->compiler_frame) { new_node_s_context(); } tmp.type=T_PROGRAM;
pike.git/src/program.c:2414:
i=ID_FROM_INT(Pike_compiler->new_program, id); free_type(i->type); i->type=get_type_of_svalue(&tmp); } } if (pass == 1) { if(compilation_depth >= 1) add_ref(p->parent = Pike_compiler->new_program); } p->flags &=~ PROGRAM_VIRGIN;
-
Pike_compiler->parent_identifier=id;
+
if(idp) *idp=id; CDFPRINTF((stderr, "th(%ld) %p low_start_new_program() %s " "pass=%d: threads_disabled:%d, compilation_depth:%d\n", (long)th_self(), p, name ? name->str : "-", Pike_compiler->compiler_pass, threads_disabled, compilation_depth)); init_type_stack(); #define PUSH #include "compilation.h"
-
+
Pike_compiler->parent_identifier=id;
Pike_compiler->compiler_pass = pass; Pike_compiler->num_used_modules=0; if(p->flags & PROGRAM_FINISHED) { yyerror("Pass2: Program already done"); } Pike_compiler->malloc_size_program = ALLOC_STRUCT(program);