diff options
| author | simonpj <unknown> | 2002-09-11 10:14:32 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2002-09-11 10:14:32 +0000 |
| commit | 78905bdb31b67c7bae174374f577c0e0b40aa508 (patch) | |
| tree | ab1e8ba2c34e2b5c35f0b894c3d3c23de41e989f /ghc | |
| parent | a338e1c0c82d3b7d74fc731fd2f75db9ca98355a (diff) | |
| download | haskell-78905bdb31b67c7bae174374f577c0e0b40aa508.tar.gz | |
[project @ 2002-09-11 10:14:32 by simonpj]
Remove bogus warning
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/compiler/codeGen/CgTailCall.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/compiler/codeGen/CgTailCall.lhs b/ghc/compiler/codeGen/CgTailCall.lhs index 4468eead66..6bd49c0034 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.33 2002/04/29 14:03:42 simonmar Exp $ +% $Id: CgTailCall.lhs,v 1.34 2002/09/11 10:14:32 simonpj Exp $ % %******************************************************** %* * @@ -118,8 +118,7 @@ performPrimReturn :: SDoc -- Just for debugging (sigh) performPrimReturn doc amode = let kind = getAmodeRep amode - ret_reg = WARN( case kind of { PtrRep -> True; other -> False }, text "primRet" <+> doc <+> pprAmode amode ) - dataReturnConvPrim kind + ret_reg = dataReturnConvPrim kind assign_possibly = case kind of VoidRep -> AbsCNop |