WIP: add some noise
authorGabor Greif <ggreif@gmail.com>
Fri, 29 Dec 2017 12:27:04 +0000 (13:27 +0100)
committerGabor Greif <ggreif@gmail.com>
Fri, 29 Dec 2017 12:27:04 +0000 (13:27 +0100)
compiler/simplStg/StgCse.hs

index 6b805d7..6643454 100644 (file)
@@ -425,7 +425,7 @@ mkStgCase scrut bndr ty alts | all isBndr alts = scrut
       , (binds@(_:_),rest) <- partition isBndr alts
       = pprTrace "mkStgCase" (ppr alts) $ Just (def:rest)
     grouped alts | (binds@(_:_:_),rest) <- partition isBndr alts
-                 = Just ((DEFAULT, [], StgApp bndr []) : rest)
+                 = pprTrace "mkStgCase#" (ppr alts) $ Just ((DEFAULT, [], StgApp bndr []) : rest)
     -- TODO: common constr applications: partition, sort, group
     grouped _ = Nothing