diff options
| author | simonpj <unknown> | 1999-06-22 08:00:45 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-06-22 08:00:45 +0000 |
| commit | edd06d674dd5ffa05c08b6d75dd3a6b63b016f58 (patch) | |
| tree | 5ebdf6b4d8e702326a2793b38f776bdf7c4f4629 /ghc/compiler/codeGen | |
| parent | 9636548d427294dc9366c832a8db1e1e66bd4998 (diff) | |
| download | haskell-edd06d674dd5ffa05c08b6d75dd3a6b63b016f58.tar.gz | |
[project @ 1999-06-22 07:59:54 by simonpj]
Many small tuning changes
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgCase.lhs | 5 | ||||
| -rw-r--r-- | ghc/compiler/codeGen/CgTailCall.lhs | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/ghc/compiler/codeGen/CgCase.lhs b/ghc/compiler/codeGen/CgCase.lhs index 6b7f9f2e98..9eb6b22160 100644 --- a/ghc/compiler/codeGen/CgCase.lhs +++ b/ghc/compiler/codeGen/CgCase.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgCase.lhs,v 1.31 1999/06/09 14:27:38 simonmar Exp $ +% $Id: CgCase.lhs,v 1.32 1999/06/22 07:59:59 simonpj Exp $ % %******************************************************** %* * @@ -745,7 +745,8 @@ cgPrimInlineAlts bndr ty alts deflt cgPrimEvalAlts bndr ty alts deflt = cgPrimAltsWithDefault bndr GCMayHappen (CReg reg) alts deflt [reg] where - reg = dataReturnConvPrim kind + reg = WARN( case kind of { PtrRep -> True; other -> False }, text "cgPrimEE" <+> ppr bndr <+> ppr ty ) + dataReturnConvPrim kind kind = typePrimRep ty cgPrimAltsWithDefault bndr gc_flag scrutinee alts deflt regs diff --git a/ghc/compiler/codeGen/CgTailCall.lhs b/ghc/compiler/codeGen/CgTailCall.lhs index e98f66b39a..c33c649d92 100644 --- a/ghc/compiler/codeGen/CgTailCall.lhs +++ b/ghc/compiler/codeGen/CgTailCall.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgTailCall.lhs,v 1.21 1999/06/08 15:56:48 simonmar Exp $ +% $Id: CgTailCall.lhs,v 1.22 1999/06/22 08:00:00 simonpj Exp $ % %******************************************************** %* * @@ -28,6 +28,7 @@ module CgTailCall ( import CgMonad import AbsCSyn +import PprAbsC ( pprAmode ) import AbsCUtils ( mkAbstractCs, mkAbsCStmts, getAmodeRep ) import CgBindery ( getArgAmodes, getCAddrMode, getCAddrModeAndInfo ) @@ -118,7 +119,8 @@ performPrimReturn :: SDoc -- Just for debugging (sigh) performPrimReturn doc amode = let kind = getAmodeRep amode - ret_reg = dataReturnConvPrim kind + ret_reg = WARN( case kind of { PtrRep -> True; other -> False }, text "primRet" <+> doc <+> pprAmode amode ) + dataReturnConvPrim kind assign_possibly = case kind of VoidRep -> AbsCNop |