From: simonpj <unknown>
Date: Wed, 11 Sep 2002 10:14:32 +0000 (+0000)
Subject: [project @ 2002-09-11 10:14:32 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1688
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=78905bdb31b67c7bae174374f577c0e0b40aa508;p=ghc-hetmet.git

[project @ 2002-09-11 10:14:32 by simonpj]
Remove bogus warning
---

diff --git a/ghc/compiler/codeGen/CgTailCall.lhs b/ghc/compiler/codeGen/CgTailCall.lhs
index 4468eea..6bd49c0 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