[GHC] #10518: unregisterised GHC generates incorrect 0xUL literals for certain onstants

[GHC]

#10518: unregisterised GHC generates incorrect 0xUL literals for certain onstants
-------------------------------------+-------------------------------------
              Reporter:  slyfox      |             Owner:  slyfox
                  Type:  bug         |            Status:  new
              Priority:  normal      |         Milestone:
             Component:  Compiler    |           Version:  7.10.1
              Keywords:              |  Operating System:  Unknown/Multiple
          Architecture:              |   Type of failure:  None/Unknown
  Unknown/Multiple                   |        Blocked By:
             Test Case:              |   Related Tickets:
              Blocking:              |
Differential Revisions:              |
-------------------------------------+-------------------------------------
 jakzale reports:
 21:47:27 < int-e> Oh, nice. Yes, indeed pprHexVal (2^32) W32 (function
 from cmm/PprC.hs) would result in 0xU.
 21:50:29 < jakzale> int-e: yes, truncInt takes module 2^32, then go
 returns empty string (I guess)

 Here comes the test:
 {{{
 $ cat a.cmm

 foo() {
     bits64 a;
     a = 0x10000000000000000; // overflows 64 bits
     return (a);
 }

 $ inplace/bin/ghc-stage2 -c a.cmm
 /tmp/ghc8580_0/ghc_2.hc: In function 'foo':

 /tmp/ghc8580_0/ghc_2.hc:8:7: error:
      error: invalid suffix "xUL" on integer constant
      _c0 = 0xUL;
            ^
 }}}
 I've broke it with commit:43f1b2ecd1960fa7377cf55a2b97c66059a701ef
 when introduced truncation that can generate more zeroes.

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