diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-12-07 08:51:02 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-07 09:55:30 -0500 |
| commit | 83d69dca896c7df1f2a36268d5b45c9283985ebf (patch) | |
| tree | 5803804671418d397504a62756bd2601731bbc0f /includes/Rts.h | |
| parent | d70d452a38bed3321bfc3c14074a6b3e1f30a090 (diff) | |
| download | haskell-83d69dca896c7df1f2a36268d5b45c9283985ebf.tar.gz | |
Don't barf() on failures in loadArchive()
This patch replaces calls to barf() in loadArchive() with proper
error handling.
Test Plan: GHC CI
Reviewers: rwbarton, erikd, hvr, austin, simonmar, bgamari
Reviewed By: bgamari
Subscribers: thomie
Tags: #ghc
Differential Revision: https://phabricator.haskell.org/D2652
GHC Trac Issues: #12388
Diffstat (limited to 'includes/Rts.h')
| -rw-r--r-- | includes/Rts.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/includes/Rts.h b/includes/Rts.h index 0599df655c..fc010d4d97 100644 --- a/includes/Rts.h +++ b/includes/Rts.h @@ -267,13 +267,13 @@ TICK_VAR(2) Assertions and Debuggery -------------------------------------------------------------------------- */ -#define IF_RTSFLAGS(c,s) if (RtsFlags.c) { s; } +#define IF_RTSFLAGS(c,s) if (RtsFlags.c) { s; } doNothing() #ifdef DEBUG #if IN_STG_CODE -#define IF_DEBUG(c,s) if (RtsFlags[0].DebugFlags.c) { s; } +#define IF_DEBUG(c,s) if (RtsFlags[0].DebugFlags.c) { s; } doNothing() #else -#define IF_DEBUG(c,s) if (RtsFlags.DebugFlags.c) { s; } +#define IF_DEBUG(c,s) if (RtsFlags.DebugFlags.c) { s; } doNothing() #endif #else #define IF_DEBUG(c,s) doNothing() |