#14295: tagToEnum# leads to some silly closures -------------------------------------+------------------------------------- Reporter: dfeuer | Owner: (none) Type: bug | Status: new Priority: normal | Milestone: 8.4.1 Component: Compiler | Version: 8.2.1 Resolution: | Keywords: datacon-tags Operating System: Unknown/Multiple | Architecture: Type of failure: Runtime | Unknown/Multiple performance bug | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Comment (by simonpj): Really? I get {{{ ==================== STG syntax: ==================== Foo.foo :: forall a. (GHC.Types.Int -> a) -> GHC.Prim.Int# -> GHC.Prim.Int# -> a [GblId, Arity=3, Caf=NoCafRefs, Unf=OtherCon []] = \r [f_s1av x_s1aw y_s1ax] let { sat_s1az [Occ=Once] :: GHC.Types.Int [LclId] = \u [] case quotInt# [x_s1aw y_s1ax] of wild_s1ay { __DEFAULT -> GHC.Types.I# [wild_s1ay]; }; } in f_s1av sat_s1az; }}} -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/14295#comment:9 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler