From: simonmar <unknown>
Date: Wed, 5 Apr 2000 15:17:38 +0000 (+0000)
Subject: [project @ 2000-04-05 15:17:38 by simonmar]
X-Git-Tag: Approximately_9120_patches~4815
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=776011ad75c1584aa2ff8f2d6a4d3a3fde9d96a3;p=ghc-hetmet.git

[project @ 2000-04-05 15:17:38 by simonmar]
generate the correct closureTypeDescr for an LFCon.
---

diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 62836a1..d107e7e 100644
--- a/ghc/compiler/codeGen/ClosureInfo.lhs
+++ b/ghc/compiler/codeGen/ClosureInfo.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: ClosureInfo.lhs,v 1.40 2000/03/23 17:45:19 simonpj Exp $
+% $Id: ClosureInfo.lhs,v 1.41 2000/04/05 15:17:38 simonmar Exp $
 %
 \section[ClosureInfo]{Data structures which describe closures}
 
@@ -80,11 +80,13 @@ import CmdLineOpts	( opt_SccProfilingOn, opt_OmitBlackHoling,
 			  opt_Parallel, opt_DoTickyProfiling,
 			  opt_SMP )
 import Id		( Id, idType, idArityInfo )
-import DataCon		( DataCon, dataConTag, fIRST_TAG,
+import DataCon		( DataCon, dataConTag, fIRST_TAG, dataConTyCon,
 			  isNullaryDataCon, isTupleCon, dataConName
 			)
 import IdInfo		( ArityInfo(..) )
-import Name		( Name, isExternallyVisibleName, nameUnique )
+import Name		( Name, isExternallyVisibleName, nameUnique, 
+			  getOccName )
+import OccName		( occNameUserString )
 import PprType		( getTyDescription )
 import PrimRep		( getPrimRepSize, separateByPtrFollowness, PrimRep )
 import SMRep		-- all of it
@@ -1041,6 +1043,8 @@ closureTypeDescr (MkClosureInfo name (LFThunk ty _ _ _ _ _ _) _)
   = getTyDescription ty
 closureTypeDescr (MkClosureInfo name (LFReEntrant ty _ _ _ _ _) _)
   = getTyDescription ty
+closureTypeDescr (MkClosureInfo name (LFCon data_con _) _)
+  = occNameUserString (getOccName (dataConTyCon data_con))
 closureTypeDescr (MkClosureInfo name lf _)
   = showSDoc (ppr name)
 \end{code}