From 63d0409af0205e34b21f6f0132eba66cb6bd3b7b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Thu, 5 Mar 1998 14:18:49 +0100
Subject: [PATCH] Added some trace output.
Rev: src/error.c:1.9
---
src/error.c | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/error.c b/src/error.c
index 94b7488867..5f43c3ef45 100644
--- a/src/error.c
+++ b/src/error.c
@@ -11,6 +11,7 @@
#include "builtin_functions.h"
#include "array.h"
#include "object.h"
+#include "main.h"
#undef ATTRIBUTE
#define ATTRIBUTE(X)
@@ -34,9 +35,12 @@ void throw(void) ATTRIBUTE((noreturn))
fatal("No error recovery context.\n");
#ifdef DEBUG
+ if (t_flag) {
+ fprintf(stderr, "throw(X)\n");
+ }
if(sp - evaluator_stack < recoveries->sp)
fatal("Stack error in error.\n");
-#endif
+#endif /* DEBUG */
while(fp != recoveries->fp)
{
--
GitLab