diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-18 23:35:34 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-18 23:35:34 +0100 |
| commit | 0176c3f297e58080ae1c308453cf5233f60f1f21 (patch) | |
| tree | f3f8dc2115f6370bf7a59166bfa3d90fed0553eb /compiler/codeGen/CgUtils.hs | |
| parent | a9b986e2fe285f844e42e573e4887a4e36ba92d4 (diff) | |
| download | haskell-0176c3f297e58080ae1c308453cf5233f60f1f21.tar.gz | |
Remove a little more CPP
Diffstat (limited to 'compiler/codeGen/CgUtils.hs')
| -rw-r--r-- | compiler/codeGen/CgUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs index aee4c7b5b3..3a106abfb4 100644 --- a/compiler/codeGen/CgUtils.hs +++ b/compiler/codeGen/CgUtils.hs @@ -795,7 +795,7 @@ getSRTInfo = do NoSRT -> return NoC_SRT SRTEntries {} -> panic "getSRTInfo: SRTEntries. Perhaps you forgot to run SimplStg?" SRT off len bmp - | len > hALF_WORD_SIZE_IN_BITS || bmp == [toStgWord dflags (fromStgHalfWord (srt_escape dflags))] + | len > hALF_WORD_SIZE_IN_BITS dflags || bmp == [toStgWord dflags (fromStgHalfWord (srt_escape dflags))] -> do id <- newUnique let srt_desc_lbl = mkLargeSRTLabel id emitRODataLits "getSRTInfo" srt_desc_lbl |