[commit: ghc] master: T10518: Ensure literal has 64-bit type (422107e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/422107ecb943fd1d7e6dfc83e09518627da5d57a/ghc

>---------------------------------------------------------------

commit 422107ecb943fd1d7e6dfc83e09518627da5d57a
Author: Ben Gamari <bgamari at smart-cactus.org>
Date:   Mon Oct 26 09:12:13 2015 +0000

    T10518: Ensure literal has 64-bit type
    
    Otherwise we get a C-- lint error due to mismatched RHS and
    variable types.


>---------------------------------------------------------------

422107ecb943fd1d7e6dfc83e09518627da5d57a
 testsuite/tests/codeGen/should_compile/T10518.cmm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsuite/tests/codeGen/should_compile/T10518.cmm b/testsuite/tests/codeGen/should_compile/T10518.cmm
index 966cd4a..cea4639 100644
--- a/testsuite/tests/codeGen/should_compile/T10518.cmm
+++ b/testsuite/tests/codeGen/should_compile/T10518.cmm
@@ -1,5 +1,5 @@
 foo() {
     bits64 a;
-    a = 0x10000000000000000; // overflows 64 bits
+    a = (0x10000000000000000 :: bits64); // overflows 64 bits
     return (a);
 }