diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-12 12:02:44 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-12 15:20:31 +0000 |
| commit | 929578081e8b2b0f14e9518329f516eebf4315ce (patch) | |
| tree | e83ef5975626587dbd1e7b62e0047c7fccd209ae /compiler/cmm/PprC.hs | |
| parent | d92bd17ffd8715f77fd49de0fed6e39c8d0ec28b (diff) | |
| download | haskell-929578081e8b2b0f14e9518329f516eebf4315ce.tar.gz | |
Fix warnings
Diffstat (limited to 'compiler/cmm/PprC.hs')
| -rw-r--r-- | compiler/cmm/PprC.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index ee964d8701..9ebb12d752 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -168,6 +168,7 @@ pprStmt :: CmmNode e x -> SDoc pprStmt stmt = sdocWithDynFlags $ \dflags -> case stmt of + CmmEntry _ -> empty CmmComment _ -> empty -- (hang (ptext (sLit "/*")) 3 (ftext s)) $$ ptext (sLit "*/") -- XXX if the string contains "*/", we need to fix it -- XXX we probably want to emit these comments when @@ -255,6 +256,8 @@ pprStmt stmt = CmmSwitch arg ids -> sdocWithDynFlags $ \dflags -> pprSwitch dflags arg ids + _other -> pprPanic "PprC.pprStmt" (ppr stmt) + type Hinted a = (a, ForeignHint) pprForeignCall :: SDoc -> CCallConv -> [Hinted CmmFormal] -> [Hinted CmmActual] |