diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-19 08:54:18 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-20 09:17:14 +0100 |
| commit | 44f61d398a55c3dca74bc173cd6fb66e1762d982 (patch) | |
| tree | 119be3b42bce1c5f2eeb256220409870b4a01efb /compiler | |
| parent | c35d8c362ff553ee2c1952a388e64c761be89469 (diff) | |
| download | haskell-44f61d398a55c3dca74bc173cd6fb66e1762d982.tar.gz | |
Support 64-bit literals in the byte code generator (fixes recent test
failures in print002 etc. on 32-bit platforms)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/ByteCodeGen.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs index 30bcef2e0c..e5898a2c7f 100644 --- a/compiler/ghci/ByteCodeGen.lhs +++ b/compiler/ghci/ByteCodeGen.lhs @@ -1232,7 +1232,9 @@ pushAtom _ _ (AnnLit lit) = case lit of MachLabel _ _ _ -> code NonPtrArg MachWord _ -> code NonPtrArg - MachInt _ -> code PtrArg + MachInt _ -> code NonPtrArg + MachWord64 _ -> code LongArg + MachInt64 _ -> code LongArg MachFloat _ -> code FloatArg MachDouble _ -> code DoubleArg MachChar _ -> code NonPtrArg |