summaryrefslogtreecommitdiff
path: root/compiler/codeGen/StgCmmEnv.hs
diff options
context:
space:
mode:
authorJan Stolarek <jan.stolarek@p.lodz.pl>2013-08-20 10:34:39 +0100
committerJan Stolarek <jan.stolarek@p.lodz.pl>2013-08-20 17:19:29 +0100
commit3f279f37042458dfcfd06eceb127eed4a528c3cc (patch)
tree9946b80f749121d2195483b1f12bb2ef7ebcc7e9 /compiler/codeGen/StgCmmEnv.hs
parentf661e79c3ba0aaad46d5366f7f2836dc2e78b82b (diff)
downloadhaskell-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.hs22
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)