diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-04-05 14:53:16 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-04-05 14:53:16 +0000 |
| commit | 4ae1107dd5a839496cdb385daf14afee8360352c (patch) | |
| tree | 2eb615c58c5e424c3721ba5d5089caefadb7463c | |
| parent | 33273cefac6b8a82222893b69e3e1f54052f282c (diff) | |
| download | haskell-4ae1107dd5a839496cdb385daf14afee8360352c.tar.gz | |
Turn the "too many hs_exit()s" fatal error into a warning
| -rw-r--r-- | ghc/rts/RtsStartup.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c index 32c73f43c6..147de7b857 100644 --- 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) { |