[GHC] #13619: hsc2hs parses incorrectly c99 style ("/// ...") comments in '--cross-compile' mode

[GHC]

#13619: hsc2hs parses incorrectly c99 style ("/// ...") comments in '--cross-
compile' mode
-------------------------------------+-------------------------------------
           Reporter:  slyfox         |             Owner:  (none)
               Type:  bug            |            Status:  new
           Priority:  normal         |         Milestone:
          Component:  hsc2hs         |           Version:  8.0.1
           Keywords:                 |  Operating System:  Unknown/Multiple
       Architecture:                 |   Type of failure:  None/Unknown
  Unknown/Multiple                   |
          Test Case:                 |        Blocked By:
           Blocking:                 |   Related Tickets:
Differential Rev(s):                 |         Wiki Page:
-------------------------------------+-------------------------------------
 The code is simplified version of something from Win32 package
 (https://github.com/haskell/win32/blob/master/Graphics/Win32/GDI/Pen.hsc#L59):

 {{{#!hs
 -- a.hsc
 #{enum Int ,     // "hi" there!
  , a       = sizeof(int)
  }
 }}}

 {{{
 $ hsc2hs a.hsc -o a.hs-cross --cross-compile
 $ hsc2hs a.hsc -o a.hs-native
 }}}
 {{{#!diff
 --- a.hs-cross  2017-04-26 21:56:56.157323964 +0100
 +++ a.hs-native 2017-04-26 21:57:00.753311717 +0100
 @@ -2,3 +2,3 @@
  a        :: Int
 -a        = // "hi" there! 4
 +a        =  4
 }}}

 I'm not sure if it's a valid .hsc but having at least the same
 (valid or invalid) result in both modes would be nice.

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