diff options
| author | partain <unknown> | 1996-04-30 17:36:35 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-04-30 17:36:35 +0000 |
| commit | f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1 (patch) | |
| tree | 23cc418623f01962b70d4a593215f9c449f8beeb /ghc/compiler/codeGen | |
| parent | cc051dd76d01b61caae6f4e1fc177c9815716961 (diff) | |
| download | haskell-f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1.tar.gz | |
[project @ 1996-04-30 17:34:02 by partain]
SLPJ 1.3 changes to 960430
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/ClosureInfo.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs index f7eb45a539..ae7cf40f2c 100644 --- a/ghc/compiler/codeGen/ClosureInfo.lhs +++ b/ghc/compiler/codeGen/ClosureInfo.lhs @@ -92,7 +92,7 @@ import PprType ( GenType{-instance Outputable-} ) import PrimRep ( getPrimRepSize, separateByPtrFollowness ) import SMRep -- all of it import TyCon ( maybeTyConSingleCon, TyCon{-instance NamedThing-} ) -import Type ( isPrimType, splitForAllTy, splitFunTy, mkFunTys ) +import Type ( isPrimType, splitForAllTy, splitFunTyWithDictsAsArgs, mkFunTys ) import Util ( isIn, mapAccumL, panic, pprPanic, assertPanic ) maybeCharLikeTyCon = panic "ClosureInfo.maybeCharLikeTyCon (ToDo)" @@ -1163,7 +1163,7 @@ closureReturnsUnboxedType other_closure = False fun_result_ty arity id = let (_, de_foralld_ty) = splitForAllTy (idType id) - (arg_tys, res_ty) = splitFunTy{-w/ dicts as args?-} de_foralld_ty + (arg_tys, res_ty) = splitFunTyWithDictsAsArgs de_foralld_ty in ASSERT(arity >= 0 && length arg_tys >= arity) mkFunTys (drop arity arg_tys) res_ty |