pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-12-27
1999-12-27 22:47:13 by Henrik Grubbström (Grubba) <grubba@grubba.org>
178e2d8b388a27cbb9f04bdf2924ed0a60caaecd (
15
lines) (+
13
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Improved line-number info for code that has been rewritten by optimize().
Rev: src/las.c:1.152
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
151
1999/12/
26
18
:
54
:
57
grubba Exp $");
+
RCSID("$Id: las.c,v 1.
152
1999/12/
27
22
:
47
:
13
grubba Exp $");
#include "language.h" #include "interpret.h"
3345:
{ node *tmp1, *tmp2, *tmp3; INT32 save_line = lex.current_line;
+
#ifdef PIKE_DEBUG
+
struct pike_string *save_file = lex.current_file;
+
#endif /* PIKE_DEBUG */
+
do { if(car_is_node(n) &&
3387:
#endif /* SHARED_NODES && !IN_TPIKE */ lex.current_line = n->line_number;
+
#ifdef PIKE_DEBUG
+
lex.current_file = n->current_file;
+
#endif /* PIKE_DEBUG */
-
+
n->tree_info = n->node_info; if(car_is_node(n)) n->tree_info |= CAR(n)->tree_info; if(cdr_is_node(n)) n->tree_info |= CDR(n)->tree_info;
3523:
n->node_info |= OPT_OPTIMIZED; n=n->parent; }while(n);
+
lex.current_line = save_line;
-
+
#ifdef PIKE_DEBUG
+
lex.current_file = save_file;
+
#endif /* PIKE_DEBUG */
} struct timer_oflo