diff options
Diffstat (limited to 'compiler/codeGen/StgCmmCon.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmCon.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs index e818bd742c..beff73e9e0 100644 --- a/compiler/codeGen/StgCmmCon.hs +++ b/compiler/codeGen/StgCmmCon.hs @@ -210,8 +210,7 @@ bindConArgs (DataAlt con) base args bind_arg :: (NonVoid Id, VirtualHpOffset) -> FCode LocalReg bind_arg (arg, offset) = do { emit $ mkTaggedObjectLoad (idToReg arg) base offset tag - ; pprTrace "bind_arg gets tag" (ppr arg <+> ppr tag) $ - bindArgToReg arg } + ; bindArgToReg arg } bindConArgs _other_con _base args = ASSERT( null args ) return [] |