diff options
author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-20 10:34:39 +0100 |
---|---|---|
committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-20 17:19:29 +0100 |
commit | 3f279f37042458dfcfd06eceb127eed4a528c3cc (patch) | |
tree | 9946b80f749121d2195483b1f12bb2ef7ebcc7e9 /compiler/codeGen/StgCmmEnv.hs | |
parent | f661e79c3ba0aaad46d5366f7f2836dc2e78b82b (diff) | |
download | haskell-3f279f37042458dfcfd06eceb127eed4a528c3cc.tar.gz |
Trailing whitespaces, code formatting, detabify
A major cleanup of trailing whitespaces and tabs in codeGen/
directory. I also adjusted code formatting in some places.
Diffstat (limited to 'compiler/codeGen/StgCmmEnv.hs')
-rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 1fdb364b56..77a3b4e249 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -20,8 +20,8 @@ module StgCmmEnv ( bindArgsToRegs, bindToReg, rebindToReg, bindArgToReg, idToReg, getArgAmode, getNonVoidArgAmodes, - getCgIdInfo, - maybeLetNoEscape, + getCgIdInfo, + maybeLetNoEscape, ) where #include "HsVersions.h" @@ -114,7 +114,7 @@ addDynTag :: DynFlags -> CmmExpr -> DynTag -> CmmExpr addDynTag dflags expr tag = cmmOffsetB dflags expr tag cgIdInfoId :: CgIdInfo -> Id -cgIdInfoId = cg_id +cgIdInfoId = cg_id cgIdInfoLF :: CgIdInfo -> LambdaFormInfo cgIdInfoLF = cg_lf @@ -127,8 +127,8 @@ maybeLetNoEscape _other = Nothing --------------------------------------------------------- -- The binding environment --- --- There are three basic routines, for adding (addBindC), +-- +-- There are three basic routines, for adding (addBindC), -- modifying(modifyBindC) and looking up (getCgIdInfo) bindings. --------------------------------------------------------- @@ -160,7 +160,7 @@ getCgIdInfo id Nothing -> -- Should be imported; make up a CgIdInfo for it - let + let name = idName id in if isExternalName name then do @@ -168,10 +168,10 @@ getCgIdInfo id dflags <- getDynFlags return (litIdInfo dflags id (mkLFImported id) ext_lbl) else - -- Bug + -- Bug cgLookupPanic id }}}} - + cgLookupPanic :: Id -> FCode a cgLookupPanic id = do static_binds <- getStaticBinds @@ -192,7 +192,7 @@ getArgAmode (NonVoid (StgVarArg var)) = getArgAmode (NonVoid (StgLitArg lit)) = liftM CmmLit $ cgLit lit getNonVoidArgAmodes :: [StgArg] -> FCode [CmmExpr] --- NB: Filters out void args, +-- NB: Filters out void args, -- so the result list may be shorter than the argument list getNonVoidArgAmodes [] = return [] getNonVoidArgAmodes (arg:args) @@ -214,7 +214,7 @@ bindToReg nvid@(NonVoid id) lf_info return reg rebindToReg :: NonVoid Id -> FCode LocalReg --- Like bindToReg, but the Id is already in scope, so +-- Like bindToReg, but the Id is already in scope, so -- get its LF info from the envt rebindToReg nvid@(NonVoid id) = do { info <- getCgIdInfo id @@ -233,7 +233,7 @@ idToReg :: DynFlags -> NonVoid Id -> LocalReg -- We re-use the Unique from the Id to make it easier to see what is going on -- -- By now the Ids should be uniquely named; else one would worry --- about accidental collision +-- about accidental collision idToReg dflags (NonVoid id) = LocalReg (idUnique id) (case idPrimRep id of VoidRep -> pprPanic "idToReg" (ppr id) |