From 83d69dca896c7df1f2a36268d5b45c9283985ebf Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Wed, 7 Dec 2016 08:51:02 -0500 Subject: 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 --- includes/Rts.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'includes/Rts.h') 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() -- cgit v1.2.1