X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcodeGen%2FCgCase.lhs;h=92d5bba3460d69e25e7818607906b354085efeb3;hb=96fd092f6646f2cd1a71ddb10f4024a9d3da53a3;hp=0e6deff9cedada44a9d519d7f00439c1368b92e8;hpb=3f5e4368fd4e87e116ce34be4cf9dd0f9f96726d;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgCase.lhs b/ghc/compiler/codeGen/CgCase.lhs
index 0e6deff..92d5bba 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.63 2003/07/02 13:12:35 simonpj Exp $
+% $Id: CgCase.lhs,v 1.64 2003/07/02 13:18:24 simonpj Exp $
 %
 %********************************************************
 %*							*
@@ -144,9 +144,7 @@ cgCase (StgApp v []) live_in_whole_case live_in_alts bndr srt
     getCAddrMode v			`thenFC` \ amode ->
     bindNewToTemp bndr			`thenFC` \ tmp_amode ->
     absC (CAssign tmp_amode amode)	`thenC`
-    cgPrimAlts NoGC amode alts alt_type
-	-- TEMP Should be tmp_amode, not amode
-	-- but for line-by-line comparison with old stuff, we pass amode too
+    cgPrimAlts NoGC tmp_amode alts alt_type
 \end{code}	
 
 Special case #3: inline PrimOps.