diff options
| author | Yuri de Wit <admin@rodlogic.net> | 2014-11-25 18:22:34 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-25 18:27:33 +0100 |
| commit | 4af5748b4589cb5a3c8fc389cc721ebb33260a56 (patch) | |
| tree | da34ce887bfe8550607801cb9351594279e3cdb7 /compiler/HsVersions.h | |
| parent | 5fa018655305a8d9272daf187dd241dee3b606fc (diff) | |
| download | haskell-4af5748b4589cb5a3c8fc389cc721ebb33260a56.tar.gz | |
Replace `STRICT[12345]` macros by `BangPatterns`
This removes the macros `STRICT1()`, `STRICT2()`, `STRICT3()`,
`STRICT4()`, and `STRICT5()` CPP macros from `HsVersions.hs` and
replaces the few use sites by uses of `BangPatterns`.
Reviewed By: hvr
Differential Revision: https://phabricator.haskell.org/D525
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 7ba82e1898..6d5716db64 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -49,13 +49,5 @@ name = Util.globalM (value); #define ASSERTM2(e,msg) do { bool <- e; MASSERT2(bool,msg) } #define WARNM2(e,msg) do { bool <- e; WARN(bool, msg) return () } --- Useful for declaring arguments to be strict -#define STRICT1(f) f a | a `seq` False = undefined -#define STRICT2(f) f a b | a `seq` b `seq` False = undefined -#define STRICT3(f) f a b c | a `seq` b `seq` c `seq` False = undefined -#define STRICT4(f) f a b c d | a `seq` b `seq` c `seq` d `seq` False = undefined -#define STRICT5(f) f a b c d e | a `seq` b `seq` c `seq` d `seq` e `seq` False = undefined -#define STRICT6(f) f a b c d e f | a `seq` b `seq` c `seq` d `seq` e `seq` f `seq` False = undefined - #endif /* HsVersions.h */ |