diff options
| author | sewardj <unknown> | 2001-01-21 16:37:22 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-01-21 16:37:22 +0000 |
| commit | e778ecfe0b524809155543e6d7fe16654cb038ee (patch) | |
| tree | 931eb5ace4a2d37fba90551c79b77094b4ff0ab1 /ghc/compiler/ghci/ByteCodeLink.lhs | |
| parent | 348b357a272d5faefb9708380beea9187f18a6b3 (diff) | |
| download | haskell-e778ecfe0b524809155543e6d7fe16654cb038ee.tar.gz | |
[project @ 2001-01-21 16:37:22 by sewardj]
Add support for Word#.
Diffstat (limited to 'ghc/compiler/ghci/ByteCodeLink.lhs')
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeLink.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index 0bb69062e9..2792b3d3e1 100644 --- a/ghc/compiler/ghci/ByteCodeLink.lhs +++ b/ghc/compiler/ghci/ByteCodeLink.lhs @@ -271,6 +271,7 @@ mkBits findLabel st proto_insns = do st_I1 <- addToSS st_I0 (getName dcon) return (sizeSS st_I0, (st_i0,st_l0,st_p0,st_I1)) + literal st (MachWord w) = int st (fromIntegral w) literal st (MachInt j) = int st (fromIntegral j) literal st (MachFloat r) = float st (fromRational r) literal st (MachDouble r) = double st (fromRational r) @@ -281,6 +282,7 @@ mkBits findLabel st proto_insns where ret_itbl_addr = case pk of PtrRep -> stg_ctoi_ret_R1p_info + WordRep -> stg_ctoi_ret_R1n_info IntRep -> stg_ctoi_ret_R1n_info AddrRep -> stg_ctoi_ret_R1n_info CharRep -> stg_ctoi_ret_R1n_info |