[commit: ghc] master: [ci skip] includes: detabify/dewhitespace Rts.h (6f3dd98)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:51:45 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/6f3dd986e05f764b0c036840cfa9624b1e8c48f2/ghc
>---------------------------------------------------------------
commit 6f3dd986e05f764b0c036840cfa9624b1e8c48f2
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:40:58 2014 -0500
[ci skip] includes: detabify/dewhitespace Rts.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
6f3dd986e05f764b0c036840cfa9624b1e8c48f2
includes/Rts.h | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/includes/Rts.h b/includes/Rts.h
index aca6c49..6bf7650 100644
--- a/includes/Rts.h
+++ b/includes/Rts.h
@@ -99,16 +99,16 @@ extern "C" {
void _assertFail(const char *filename, unsigned int linenum)
GNUC3_ATTRIBUTE(__noreturn__);
-#define CHECK(predicate) \
- if (predicate) \
- /*null*/; \
- else \
- _assertFail(__FILE__, __LINE__)
+#define CHECK(predicate) \
+ if (predicate) \
+ /*null*/; \
+ else \
+ _assertFail(__FILE__, __LINE__)
#define CHECKM(predicate, msg, ...) \
- if (predicate) \
- /*null*/; \
- else \
+ if (predicate) \
+ /*null*/; \
+ else \
barf(msg, ##__VA_ARGS__)
#ifndef DEBUG
@@ -240,7 +240,7 @@ INLINE_HEADER Time fsecondsToTime (double t)
#include "rts/Main.h"
/* Misc stuff without a home */
-DLL_IMPORT_RTS extern char **prog_argv; /* so we can get at these from Haskell */
+DLL_IMPORT_RTS extern char **prog_argv; /* so we can get at these from Haskell */
DLL_IMPORT_RTS extern int prog_argc;
DLL_IMPORT_RTS extern char *prog_name;
More information about the ghc-commits
mailing list