diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-07-03 14:03:04 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-07-03 14:03:04 +0000 |
| commit | f672e79d632ade7238d51fc8da4283da71bea9a4 (patch) | |
| tree | 13834e99f7553cce09c898c782b13536ffc59168 /compiler/cmm/PprCmm.hs | |
| parent | ae53d47bba6360589970d5c51d8551172297c3f3 (diff) | |
| download | haskell-f672e79d632ade7238d51fc8da4283da71bea9a4.tar.gz | |
pprTypeInfo: print slow entry pt
Diffstat (limited to 'compiler/cmm/PprCmm.hs')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 163c86bcc7..866a1c92c5 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)), |