From 441b3d01ed9d1a98fb79b0a6dbdd1d3aa543cc6a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 13 Aug 2004 13:25:45 +0000
Subject: [PATCH] [project @ 2004-08-13 13:25:45 by simonmar] Fix minor
 merge-o

---
 ghc/compiler/codeGen/CgCase.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/codeGen/CgCase.lhs b/ghc/compiler/codeGen/CgCase.lhs
index c7b03ef..bdcc5ff 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.69 2004/08/13 13:05:51 simonmar Exp $
+% $Id: CgCase.lhs,v 1.70 2004/08/13 13:25:45 simonmar Exp $
 %
 %********************************************************
 %*							*
@@ -152,7 +152,7 @@ cgCase (StgApp v []) live_in_whole_case live_in_alts bndr srt
 Special case #3: inline PrimOps and foreign calls.
 
 \begin{code}
-cgCase (StgOpApp op args _) 
+cgCase (StgOpApp op@(StgPrimOp primop) args _) 
        live_in_whole_case live_in_alts bndr srt alt_type alts
   | not (primOpOutOfLine primop)
   = cgInlinePrimOp primop args bndr alt_type live_in_alts alts
-- 
1.7.10.4