[GHC] #13367: CSE not working for top-level literal strings

[GHC]

#13367: CSE not working for top-level literal strings
-------------------------------------+-------------------------------------
        Reporter:  simonpj           |                Owner:  (none)
            Type:  bug               |               Status:  closed
        Priority:  normal            |            Milestone:
       Component:  Compiler          |              Version:  8.0.1
      Resolution:  fixed             |             Keywords:  strings
Operating System:  Unknown/Multiple  |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  None/Unknown      |            Test Case:
                                     |  simplCore/should_compile/T13367
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------
Changes (by bgamari):

 * keywords:   => strings


Old description:

> Consider
> {{{
> {-# LANGUAGE MagicHash #-}
> module S( z ) where
> import GHC.Exts
>
> data T = MkT Addr#
>
> x = MkT "foo"#
> y = MkT "foo"#
>
> z = (x,y)
> }}}
> You'd expect those literal strings to get CSE'd but currently they are
> not.

New description:

 Consider
 {{{#!hs
 {-# LANGUAGE MagicHash #-}
 module S( z ) where
 import GHC.Exts

 data T = MkT Addr#

 x = MkT "foo"#
 y = MkT "foo"#

 z = (x,y)
 }}}
 You'd expect those literal strings to get CSE'd but currently they are
 not.

--

-- 
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/13367#comment:3>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler