[GHC] #2276: foreign import stdcall "&foo" doesn't work

[GHC]

#2276: foreign import stdcall "&foo" doesn't work
-------------------------+--------------------------------------------------
    Reporter:  simonmar  |       Owner:         
        Type:  bug       |      Status:  new    
    Priority:  normal    |   Milestone:  _|_    
   Component:  Compiler  |     Version:  6.8.2  
    Severity:  normal    |    Keywords:         
  Difficulty:  Unknown   |    Testcase:         
Architecture:  x86       |          Os:  Windows
-------------------------+--------------------------------------------------
 Importing a label with the stdcall calling convention fails to remember
 the stdcall attribute and add the appropriate '@n' suffix to the label on
 Windows.  e.g.

 {{{
 foreign import stdcall "&foo" foo :: FunPtr (CInt -> IO ())
 }}}

 should result in a reference to "foo at 4", but doesn't.  This breaks the
 Win32 library, which does something like this for `genericWndProc` in
 `Graphics/Win32/Window.hsc`.

 Somewhat related to to #1288 .

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/2276>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler