1998-04-13
1998-04-13 14:16:09 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
2f54f7e6f76d5ad437c2a4ec87013db6eb0e2e82
(18 lines)
(+17/-1)
[
Show
| Annotate
]
Branch: 7.9
Added efun _compiler_trace().
Rev: src/builtin_functions.c:1.93
4:
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
- RCSID("$Id: builtin_functions.c,v 1.92 1998/04/10 16:36:01 grubba Exp $");
+ RCSID("$Id: builtin_functions.c,v 1.93 1998/04/13 14:16:09 grubba Exp $");
#include "interpret.h"
#include "svalue.h"
#include "pike_macros.h"
1425: Inside #if defined(DEBUG)
push_int(i);
}
+ #ifdef YYDEBUG
+
+ void f__compiler_trace(INT32 args)
+ {
+ extern int yydebug;
+ INT32 i = yydebug;
+ get_all_args("_compiler_trace", args, "%i", &yydebug);
+ pop_n_elems(args);
+ push_int(i);
+ }
+
+ #endif /* YYDEBUG */
#endif
#ifdef HAVE_LOCALTIME
2599: Inside #if defined(DEBUG)
#ifdef DEBUG
add_efun("_verify_internals",f__verify_internals,"function(:void)",OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);
add_efun("_debug",f__debug,"function(int:int)",OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);
+ #ifdef YYDEBUG
+ add_efun("_compiler_trace",f__compiler_trace,"function(int:int)",OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);
+ #endif /* YYDEBUG */
#endif
add_efun("_memory_usage",f__memory_usage,"function(:mapping(string:int))",OPT_EXTERNAL_DEPEND);