[project @ 2000-08-06 12:22:32 by panne]

Fixed conversion of MachWord to MachInt for large literals. Although
completely untested, I believe this fixes bug #111021.

ghc/compiler/basicTypes/Literal.lhs

@@ -152,7 +152,7 @@ word2IntLit, int2WordLit, char2IntLit, int2CharLit,
  addr2IntLit, int2AddrLit, float2DoubleLit, double2FloatLit :: Literal -> Literal
 
 word2IntLit (MachWord w) 
-  | w > tARGET_MAX_INT = MachInt ((-1) + tARGET_MAX_WORD - w)
+  | w > tARGET_MAX_INT = MachInt (w - tARGET_MAX_WORD - 1)
   | otherwise	       = MachInt w
 
 int2WordLit (MachInt i)