diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-15 17:37:52 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-15 17:37:52 +0000 |
| commit | db77c1652c1bba51690a57c084b7a9294b77cc38 (patch) | |
| tree | 90140d1d2fa936aeec39047902988386d5e4ebe6 /compiler/codeGen | |
| parent | a02af18d636faf850672451131d5264bcbeda796 (diff) | |
| download | haskell-db77c1652c1bba51690a57c084b7a9294b77cc38.tar.gz | |
Fix warnings in CgLetNoEscape
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgLetNoEscape.lhs | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/compiler/codeGen/CgLetNoEscape.lhs b/compiler/codeGen/CgLetNoEscape.lhs index a39e76b61f..f501be5941 100644 --- a/compiler/codeGen/CgLetNoEscape.lhs +++ b/compiler/codeGen/CgLetNoEscape.lhs @@ -9,13 +9,6 @@ %******************************************************** \begin{code} -{-# OPTIONS -w #-} --- 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 CgLetNoEscape ( cgLetNoEscapeClosure ) where #include "HsVersions.h" @@ -156,8 +149,8 @@ cgLetNoEscapeClosure -- ToDo: deal with the cost-centre issues cgLetNoEscapeClosure - bndr cc binder_info full_live_in_rhss - rhs_eob_info cc_slot rec args body + bndr cc _ full_live_in_rhss + rhs_eob_info cc_slot _ args body = let arity = length args lf_info = mkLFLetNoEscape arity @@ -189,7 +182,7 @@ cgLetNoEscapeBody :: Id -- Name of the joint point -> StgExpr -- Body -> Code -cgLetNoEscapeBody bndr cc cc_slot all_args body = do +cgLetNoEscapeBody bndr _ cc_slot all_args body = do { (arg_regs, ptrs, nptrs, ret_slot) <- bindUnboxedTupleComponents all_args -- restore the saved cost centre. BUT: we must not free the stack slot |