diff options
| author | Erik de Castro Lopo <erik.decastrolopo@ambiata.com> | 2017-04-05 05:53:46 +1000 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2017-04-05 05:53:47 +1000 |
| commit | 7e340c2bbf4a56959bd1e95cdd1cfdb2b7e537c2 (patch) | |
| tree | 0f330ad348b5100f1a21312e7c91e43966789ec8 /rts/PrimOps.cmm | |
| parent | 5e968f9261b798222a845ef38a54621b45013678 (diff) | |
| download | haskell-7e340c2bbf4a56959bd1e95cdd1cfdb2b7e537c2.tar.gz | |
Enable new warning for fragile/incorrect CPP #if usage
The C code in the RTS now gets built with `-Wundef` and the Haskell code
(stages 1 and 2 only) with `-Wcpp-undef`. We now get warnings whereever
`#if` is used on undefined identifiers.
Test Plan: Validate on Linux and Windows
Reviewers: austin, angerman, simonmar, bgamari, Phyx
Reviewed By: bgamari
Subscribers: thomie, snowleopard
Differential Revision: https://phabricator.haskell.org/D3278
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 4baf63a8f7..37eee439ac 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -561,7 +561,7 @@ stg_atomicModifyMutVarzh ( gcptr mv, gcptr f ) r = [stg_sel_1 z] (max (HS + 1) MIN_UPD_SIZE) */ -#if MIN_UPD_SIZE > 1 +#if defined(MIN_UPD_SIZE) && MIN_UPD_SIZE > 1 #define THUNK_1_SIZE (SIZEOF_StgThunkHeader + WDS(MIN_UPD_SIZE)) #define TICK_ALLOC_THUNK_1() TICK_ALLOC_UP_THK(WDS(1),WDS(MIN_UPD_SIZE-1)) #else @@ -569,7 +569,7 @@ stg_atomicModifyMutVarzh ( gcptr mv, gcptr f ) #define TICK_ALLOC_THUNK_1() TICK_ALLOC_UP_THK(WDS(1),0) #endif -#if MIN_UPD_SIZE > 2 +#if defined(MIN_UPD_SIZE) && MIN_UPD_SIZE > 2 #define THUNK_2_SIZE (SIZEOF_StgThunkHeader + WDS(MIN_UPD_SIZE)) #define TICK_ALLOC_THUNK_2() TICK_ALLOC_UP_THK(WDS(2),WDS(MIN_UPD_SIZE-2)) #else |