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/StgCmmEnv.hs | |
| parent | eb02ad91b1479f389d26394f3e148ee8e45e4ec4 (diff) | |
| parent | 09987de4ece1fc634af6b2b37173b12ed46fdf3e (diff) | |
| download | haskell-0076786de1c4450743803be8b23a0f3e5c47e4ee.tar.gz | |
Merge remote-tracking branch 'origin/unboxed-tuple-arguments2'
Diffstat (limited to 'compiler/codeGen/StgCmmEnv.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index d8a7061eec..f128e3ad60 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -201,7 +201,6 @@ getArgAmode :: NonVoid StgArg -> FCode CmmExpr getArgAmode (NonVoid (StgVarArg var)) = do { info <- getCgIdInfo var; return (idInfoToAmode info) } getArgAmode (NonVoid (StgLitArg lit)) = liftM CmmLit $ cgLit lit -getArgAmode (NonVoid (StgTypeArg _)) = panic "getArgAmode: type arg" getNonVoidArgAmodes :: [StgArg] -> FCode [CmmExpr] -- NB: Filters out void args, |