From 2f54f7e6f76d5ad437c2a4ec87013db6eb0e2e82 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Mon, 13 Apr 1998 16:16:09 +0200
Subject: [PATCH] Added efun _compiler_trace().
Rev: src/builtin_functions.c:1.93
---
src/builtin_functions.c | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/src/builtin_functions.c b/src/builtin_functions.c
index 9133de97ab..b84141e82d 100644
--- a/src/builtin_functions.c
+++ b/src/builtin_functions.c
@@ -4,7 +4,7 @@
||| 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,6 +1425,18 @@ void f__debug(INT32 args)
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,6 +2611,9 @@ void init_builtin_efuns(void)
#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);
--
GitLab