From 6e4feb0ecf12e7890f5298ca55f715eed3411095 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 21 Aug 2001 10:00:22 +0000
Subject: [PATCH] [project @ 2001-08-21 10:00:22 by simonpj] wibbles

---
 ghc/compiler/codeGen/CgClosure.lhs |    4 ++--
 ghc/compiler/prelude/PrimOp.lhs    |    2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/codeGen/CgClosure.lhs b/ghc/compiler/codeGen/CgClosure.lhs
index bf29d79..32f442e 100644
--- a/ghc/compiler/codeGen/CgClosure.lhs
+++ b/ghc/compiler/codeGen/CgClosure.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgClosure.lhs,v 1.46 2001/03/22 03:51:08 hwloidl Exp $
+% $Id: CgClosure.lhs,v 1.47 2001/08/21 10:00:22 simonpj Exp $
 %
 \section[CgClosure]{Code generation for closures}
 
@@ -410,7 +410,7 @@ closureCodeBody binder_info closure_info cc all_args body
       forkAbsC (if slow_code_needed then slow_entry_code else absC AbsCNop)
 				`thenFC` \ slow_abs_c ->
       forkAbsC fast_entry_code	`thenFC` \ fast_abs_c ->
-      moduleName			`thenFC` \ mod_name ->
+      moduleName		`thenFC` \ mod_name ->
 
 	-- Now either construct the info table, or put the fast code in alone
 	-- (We never have slow code without an info table)
diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index afec1a2..827cc15 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -525,6 +525,8 @@ getPrimOpResultInfo op
 			 where
 			   tc = tyConAppTyCon ty
 			-- All primops return a tycon-app result
+			-- The tycon can be an unboxed tuple, though, which
+			-- gives rise to a ReturnAlg
 \end{code}
 
 The commutable ops are those for which we will try to move constants
-- 
1.7.10.4