diff options
| author | simonpj@microsoft.com <unknown> | 2006-11-07 17:10:40 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2006-11-07 17:10:40 +0000 |
| commit | 604121dfc02eaf2ba60d018bbc7f4c7b3e0698dd (patch) | |
| tree | fd7636250199c51be454cb56685eb6b87cca04fb /compiler/stgSyn | |
| parent | e6b0189ec9be13f904505eb7ef5b79e3aa411794 (diff) | |
| download | haskell-604121dfc02eaf2ba60d018bbc7f4c7b3e0698dd.tar.gz | |
Layout and comments only
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 5 | ||||
| -rw-r--r-- | compiler/stgSyn/StgSyn.lhs | 5 |
2 files changed, 5 insertions, 5 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index bdb3a6622d..66e2d6171d 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -16,7 +16,6 @@ import CoreUtils ( rhsIsStatic, manifestArity, exprType, findDefault ) import StgSyn import Type -import Coercion ( mkUnsafeCoercion ) import TyCon ( isAlgTyCon ) import Id import Var ( Var, globalIdDetails, idType ) @@ -505,8 +504,8 @@ coreToStgApp maybe_thunk_body f args res_ty = exprType (mkApps (Var f) args) app = case globalIdDetails f of DataConWorkId dc | saturated -> StgConApp dc args' - PrimOpId op -> ASSERT( saturated ) - StgOpApp (StgPrimOp op) args' res_ty + PrimOpId op -> ASSERT( saturated ) + StgOpApp (StgPrimOp op) args' res_ty FCallId call -> ASSERT( saturated ) StgOpApp (StgFCallOp call (idUnique f)) args' res_ty _other -> StgApp f args' diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs index a184d5e6c0..274908132a 100644 --- a/compiler/stgSyn/StgSyn.lhs +++ b/compiler/stgSyn/StgSyn.lhs @@ -173,8 +173,9 @@ constructors, primitives, and literals. | StgOpApp StgOp -- Primitive op or foreign call [GenStgArg occ] -- Saturated - Type -- Result type; we need to know the result type - -- so that we can assign result registers. + Type -- Result type + -- We need to know this so that we can + -- assign result registers \end{code} %************************************************************************ |