pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-06-29
2001-06-29 02:15:13 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
121f82a16109ac3a735af2a89eb31b1831cfb8cf (
23
lines) (+
21
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
more debug
Rev: src/interpret_functions.h:1.64
Rev: src/program.c:1.335
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
334
2001/06/
28
10
:
24
:
22
hubbe Exp $");
+
RCSID("$Id: program.c,v 1.
335
2001/06/
29
02
:
15
:
13
hubbe Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
4037:
CDFPRINTF((stderr, "th(%ld) compile(): First pass\n", (long)th_self()));
+
#ifdef PIKE_DEBUG
+
{
+
struct svalue *save_sp=Pike_sp;
yyparse(); /* Parse da program */
-
+
if(save_sp != Pike_sp)
+
fatal("yyparse() left droppings on the stack!\n");
+
}
+
#else
+
yyparse(); /* Parse da program */
+
#endif
CDFPRINTF((stderr, "th(%ld) compile(): First pass done\n", (long)th_self()));
4096:
CDFPRINTF((stderr, "th(%ld) compile(): Second pass\n", (long)th_self()));
-
yyparse(); /* Parse da program
again
*/
+
#ifdef
PIKE_DEBUG
+
{
+
struct svalue *save_sp=Pike_sp;
+
yyparse(); /* Parse da program
*/
+
if(save_sp != Pike_sp)
+
fatal("yyparse() left droppings on the stack!\n");
+
}
+
#else
+
yyparse(); /
*
Parse da program *
/
+
#endif
CDFPRINTF((stderr, "th(%ld) compile(): Second pass done\n", (long)th_self()));