diff options
author | Ian Lynagh <igloo@earth.li> | 2011-11-06 22:49:34 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-11-06 22:49:34 +0000 |
commit | 6d9dfcc5f0998f937ffe4cf11a46245d0f43851f (patch) | |
tree | dc164eb49361d4d8074cb9b73fbf7e4ac3970191 /compiler/simplStg | |
parent | 899af3a503dc8365aba02ccfc473d613871790aa (diff) | |
download | haskell-6d9dfcc5f0998f937ffe4cf11a46245d0f43851f.tar.gz |
Fix warnings in simplStg/SRT.lhs
Diffstat (limited to 'compiler/simplStg')
-rw-r--r-- | compiler/simplStg/SRT.lhs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs index 178261ceee..bd2fb5e211 100644 --- a/compiler/simplStg/SRT.lhs +++ b/compiler/simplStg/SRT.lhs @@ -7,13 +7,6 @@ each let-binding. At the same time, we figure out which top-level bindings have no CAF references, and record the fact in their IdInfo. \begin{code} -{-# OPTIONS -fno-warn-incomplete-patterns #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details - module SRT( computeSRTs ) where #include "HsVersions.h" @@ -89,6 +82,8 @@ srtTopRhs _ rhs@(StgRhsClosure _ _ _ _ (SRTEntries cafs) _ _) where elems = varSetElems cafs table = mkVarEnv (zip elems [0..]) +srtTopRhs _ (StgRhsClosure _ _ _ _ NoSRT _ _) = panic "srtTopRhs NoSRT" +srtTopRhs _ (StgRhsClosure _ _ _ _ (SRT _ _ _) _ _) = panic "srtTopRhs SRT" -- ---- Binds: @@ -158,6 +153,8 @@ constructSRT table (SRTEntries entries) bitmap_entries = map (subtract offset) sorted_ints len = last bitmap_entries + 1 bitmap = intsToBitmap len bitmap_entries +constructSRT _ NoSRT = panic "constructSRT NoSRT" +constructSRT _ (SRT {}) = panic "constructSRT SRT" -- --------------------------------------------------------------------------- -- Misc stuff |