From 9dd1f9ec77f5c34f9cf971d3d0f47fac2ac70da7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Tue, 7 Oct 1997 04:44:10 -0700
Subject: [PATCH] more debug
Rev: src/error.h:1.7
---
src/error.h | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/src/error.h b/src/error.h
index 7ec91722a8..e28b84cbfa 100644
--- a/src/error.h
+++ b/src/error.h
@@ -56,7 +56,14 @@ extern struct svalue throw_value;
recoveries->onerror=&X; \
}while(0)
+#ifdef DEBUG
+#define UNSET_ONERROR(X) do {\
+ if(recoveries->onerror != &(X)) fatal("UNSET_ONERROR out of sync.\n"); \
+ recoveries->onerror=(X).previous; \
+ } while(0)
+#else
#define UNSET_ONERROR(X) recoveries->onerror=X.previous
+#endif
/* Prototypes begin here */
JMP_BUF *init_recovery(JMP_BUF *r);
--
GitLab