diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-11-12 16:46:03 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-11-22 08:04:53 -0600 |
| commit | 98a85125c76fdacb913cbb444e1030ec30c98648 (patch) | |
| tree | 84d244cb16ce127e0d3987e2199ef4f7588e53f0 /compiler/ghci | |
| parent | 50055afe0dea0bcea8eea8d53353dfd0f1f204ca (diff) | |
| download | haskell-98a85125c76fdacb913cbb444e1030ec30c98648.tar.gz | |
M-x delete-trailing-whitespace
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/ByteCodeItbls.lhs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/ghci/ByteCodeItbls.lhs b/compiler/ghci/ByteCodeItbls.lhs index 2180f87091..c5b3545fea 100644 --- a/compiler/ghci/ByteCodeItbls.lhs +++ b/compiler/ghci/ByteCodeItbls.lhs @@ -69,7 +69,7 @@ mkITbls dflags (tc:tcs) = do itbls <- mkITbl dflags tc mkITbl :: DynFlags -> TyCon -> IO ItblEnv mkITbl dflags tc - | not (isDataTyCon tc) + | not (isDataTyCon tc) = return emptyNameEnv | dcs `lengthIs` n -- paranoia; this is an assertion. = make_constr_itbls dflags dcs @@ -81,7 +81,7 @@ mkITbl _ _ = error "Unmatched patter in mkITbl: assertion failed!" #include "../includes/rts/storage/ClosureTypes.h" cONSTR :: Int -- Defined in ClosureTypes.h -cONSTR = CONSTR +cONSTR = CONSTR -- Assumes constructors are numbered from zero, not one make_constr_itbls :: DynFlags -> [DataCon] -> IO ItblEnv @@ -115,7 +115,7 @@ make_constr_itbls dflags cons then Just code' else Nothing } - qNameCString <- newArray0 0 $ dataConIdentity dcon + qNameCString <- newArray0 0 $ dataConIdentity dcon let conInfoTbl = StgConInfoTable { conDesc = qNameCString, infoTable = itbl @@ -226,12 +226,12 @@ mkJumpToAddr dflags a = case platformArch (targetPlatform dflags) of , 0x47ff041f -- nop , fromIntegral (w64 .&. 0x0000FFFF) , fromIntegral ((w64 `shiftR` 32) .&. 0x0000FFFF) ] - + ArchARM { } -> -- Generates Thumb sequence, -- ldr r1, [pc, #0] -- bx r1 - -- + -- -- which looks like: -- 00000000 <.addr-0x8>: -- 0: 4900 ldr r1, [pc] ; 8 <.addr> |