diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-04-21 09:16:48 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-04-28 22:35:04 -0400 |
| commit | 945c45ad50ed31e3acb96fdaafb21640c4669f12 (patch) | |
| tree | ae2e59ba8d3a49bbd3c3dcece39d53aef691ed44 /rts/Compact.cmm | |
| parent | e5b3492f23c2296d0d8221e1787ee585331f726e (diff) | |
| download | haskell-945c45ad50ed31e3acb96fdaafb21640c4669f12.tar.gz | |
Prefer #if defined to #ifdef
Our new CPP linter enforces this.
Diffstat (limited to 'rts/Compact.cmm')
| -rw-r--r-- | rts/Compact.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Compact.cmm b/rts/Compact.cmm index 5290d95a60..f20fdbf8bf 100644 --- a/rts/Compact.cmm +++ b/rts/Compact.cmm @@ -285,7 +285,7 @@ stg_compactAddWithSharingzh (P_ compact, P_ p) call stg_compactAddWorkerzh(compact, p, pp); ccall freeHashTable(StgCompactNFData_hash(compact), NULL); StgCompactNFData_hash(compact) = NULL; -#ifdef DEBUG +#if defined(DEBUG) ccall verifyCompact(compact); #endif return (P_[pp]); @@ -305,7 +305,7 @@ stg_compactAddzh (P_ compact, P_ p) W_ pp; // See Note [compactAddWorker result] pp = compact + SIZEOF_StgHeader + OFFSET_StgCompactNFData_result; call stg_compactAddWorkerzh(compact, p, pp); -#ifdef DEBUG +#if defined(DEBUG) ccall verifyCompact(compact); #endif return (P_[pp]); |