pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-07-01
1999-07-01 22:09:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
e0837adf51492118e0b2177f1421eb215b66d3ec (
35
lines) (+
21
/-
14
)
[
Show
|
Annotate
]
Branch:
7.9
compiler should now lock threads correctly
Rev: src/program.c:1.130
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
129
1999/07/01
19
:
01
:
44
grubba
Exp $");
+
RCSID("$Id: program.c,v 1.
130
1999/07/01
22
:
09
:
38
hubbe
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
542:
compilation_depth++;
-
CDFPRINTF((stderr, "low_start_new_program(): compilation_depth:%d\n",
-
compilation_depth));
+
CDFPRINTF((stderr, "
th(%ld)
low_start_new_program()
pass=%d
: compilation_depth:%d\n",
+
(long)th_self(),
compilation_depth
,compiler_pass
));
if(!p) {
643:
void debug_start_new_program(PROGRAM_LINE_ARGS) { CDFPRINTF((stderr,
-
"start_new_program(): threads_disabled:%d, compilation_depth:%d\n",
-
threads_disabled, compilation_depth));
+
"
th(%ld)
start_new_program(): threads_disabled:%d, compilation_depth:%d\n",
+
(long)th_self(),
threads_disabled, compilation_depth));
low_start_new_program(0,0,0); #ifdef PIKE_DEBUG
984:
exit_threads_disable(NULL);
-
CDFPRINTF((stderr, "end_first_pass(): compilation_depth:%d\n",
-
compilation_depth));
+
CDFPRINTF((stderr, "
th(%ld),
end_first_pass(): compilation_depth:%d\n",
+
(long)th_self(),
compilation_depth));
free_all_nodes(); if(!compiler_frame && compiler_pass==2 && resolve_cache)
1962:
struct identifier *fun; int i,t;
-
CDFPRINTF((stderr,"Trying to find %s see_static=%d\n",
-
name->str, see_static));
+
CDFPRINTF((stderr,"
th(%ld)
Trying to find %s see_static=%d\n",
+
(long)th_self(),
name->str, see_static));
#ifdef PIKE_DEBUG if (!prog) {
2379:
struct program *p; struct lex save_lex; int save_depth=compilation_depth;
-
int saved_threads_disabled
= threads_disabled
;
+
int saved_threads_disabled;
dynamic_buffer used_modules_save = used_modules; INT32 num_used_modules_save = num_used_modules; extern void yyparse(void);
-
+
CDFPRINTF((stderr, "th(%ld) compile() starting compilation_depth=%d\n",
+
(long)th_self(),compilation_depth));
+
+
low_init_threads_disable();
+
saved_threads_disabled = threads_disabled;
+
#ifdef PIKE_DEBUG if(SETJMP(tmp)) fatal("Compiler exited with longjump!\n");
2457:
} #ifdef PIKE_DEBUG
-
if (threads_disabled
<
saved_threads_disabled) {
+
if (threads_disabled
!=
saved_threads_disabled) {
fatal("compile(): threads_disabled:%d saved_threads_disabled:%d\n", threads_disabled, saved_threads_disabled); } #endif /* PIKE_DEBUG */
-
threads_disabled = saved_threads_disabled + 1;
+
/*
threads_disabled = saved_threads_disabled + 1;
/Hubbe: UGGA! */
CDFPRINTF((stderr,
-
"compile() Leave: threads_disabled:%d, compilation_depth:%d\n",
-
threads_disabled, compilation_depth));
+
"
th(%ld)
compile() Leave: threads_disabled:%d, compilation_depth:%d\n",
+
(long)th_self(),
threads_disabled, compilation_depth));
exit_threads_disable(NULL);