diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-05 16:47:02 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-05 16:47:02 +0100 |
| commit | 0076786de1c4450743803be8b23a0f3e5c47e4ee (patch) | |
| tree | 9b867ef1d1c4aacc5652a7e9f05a940970a1c064 /compiler/codeGen/CgBindery.lhs | |
| parent | eb02ad91b1479f389d26394f3e148ee8e45e4ec4 (diff) | |
| parent | 09987de4ece1fc634af6b2b37173b12ed46fdf3e (diff) | |
| download | haskell-0076786de1c4450743803be8b23a0f3e5c47e4ee.tar.gz | |
Merge remote-tracking branch 'origin/unboxed-tuple-arguments2'
Diffstat (limited to 'compiler/codeGen/CgBindery.lhs')
| -rw-r--r-- | compiler/codeGen/CgBindery.lhs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/compiler/codeGen/CgBindery.lhs b/compiler/codeGen/CgBindery.lhs index 198e192f5c..06442dc004 100644 --- a/compiler/codeGen/CgBindery.lhs +++ b/compiler/codeGen/CgBindery.lhs @@ -411,15 +411,12 @@ getArgAmode (StgLitArg lit) = do { cmm_lit <- cgLit lit ; return (typeCgRep (literalType lit), CmmLit cmm_lit) } -getArgAmode (StgTypeArg _) = panic "getArgAmode: type arg" - getArgAmodes :: [StgArg] -> FCode [(CgRep, CmmExpr)] getArgAmodes [] = returnFC [] getArgAmodes (atom:atoms) - | isStgTypeArg atom = getArgAmodes atoms - | otherwise = do { amode <- getArgAmode atom - ; amodes <- getArgAmodes atoms - ; return ( amode : amodes ) } + = do { amode <- getArgAmode atom + ; amodes <- getArgAmodes atoms + ; return ( amode : amodes ) } \end{code} %************************************************************************ |