Turn the "too many hs_exit()s" fatal error into a warning

4ae1107d · Simon Marlow · 33273cef · 4ae1107d
Commit 4ae1107d authored Apr 05, 2006 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

ghc/rts/RtsStartup.c ghc/rts/RtsStartup.c +2 -1

No files found.
--- a/ghc/rts/RtsStartup.c
+++ b/ghc/rts/RtsStartup.c
@@ -313,7 +313,8 @@ void
 hs_exit(void)
 {
    if (hs_init_count <= 0) {
-	barf("too many hs_exit()s");
+	errorBelch("warning: too many hs_exit()s");
+	return;
    }
    hs_init_count--;
    if (hs_init_count > 0) {