From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 3 Jul 2007 14:03:04 +0000 (+0000)
Subject: pprTypeInfo: print slow entry pt
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f672e79d632ade7238d51fc8da4283da71bea9a4

pprTypeInfo: print slow entry pt
---

diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs
index 163c86b..866a1c9 100644
--- a/compiler/cmm/PprCmm.hs
+++ b/compiler/cmm/PprCmm.hs
@@ -153,9 +153,9 @@ pprTypeInfo (FunInfo layout srt fun_type arity args slow_entry) =
           ptext SLIT("nptrs: ") <> integer (toInteger (snd layout)),
           ptext SLIT("srt: ") <> ppr srt,
           ptext SLIT("fun_type: ") <> integer (toInteger fun_type),
-          ptext SLIT("arity: ") <> integer (toInteger arity)
+          ptext SLIT("arity: ") <> integer (toInteger arity),
           --ppr args, -- TODO: needs to be printed
-          --ppr slow_entry -- TODO: needs to be printed
+          ptext SLIT("slow: ") <> pprLit slow_entry
          ]
 pprTypeInfo (ThunkInfo layout srt) =
     vcat [ptext SLIT("ptrs: ") <> integer (toInteger (fst layout)),