Fix behaviour when the error handler itself calls dmnsn_error().

1 files changed, 9 insertions, 1 deletions

diff --git a/libdimension/error.c b/libdimension/error.c
index 11b4805..721b45c 100644
--- a/libdimension/error.c
+++ b/libdimension/error.c
@@ -133,14 +133,22 @@ void dmnsn_set_fatal_error_fn(dmnsn_fatal_error_fn *fatal)
   }
 }
 
+/* Prevent infinite recursion if the fatal error function itself calls
+   dmnsn_error() */
+static __thread bool dmnsn_tl_exiting = false;
+
 static void
 dmnsn_default_fatal_error_fn()
 {
   dmnsn_backtrace(stderr);
 
-  if (dmnsn_is_main_thread()) {
+  if (dmnsn_tl_exiting) {
+    abort();
+  } else if (dmnsn_is_main_thread()) {
     exit(EXIT_FAILURE);
   } else {
+    dmnsn_tl_exiting = true;
+
     int *ret = malloc(sizeof(int)); /* Don't use dmnsn_malloc */
     if (ret)
       *ret = 1;