From 42d87c155aaa9863c40dcdb28af1d23d31b35c9f Mon Sep 17 00:00:00 2001
From: "Ben.Lippmeier@anu.edu.au" <unknown>
Date: Mon, 12 Jan 2009 05:34:21 +0000
Subject: [PATCH] Untag closure pointers before trying to print them.

In RTS tracing code, need to untag the pointer before trying
to load the info table in printClosure()
---
 rts/Printer.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rts/Printer.c b/rts/Printer.c
index 1ad6306..2fbe276 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -121,8 +121,9 @@ printThunkObject( StgThunk *obj, char* tag )
 void
 printClosure( StgClosure *obj )
 {
+    obj = UNTAG_CLOSURE(obj);
+
     StgInfoTable *info;
-    
     info = get_itbl(obj);
 
     switch ( info->type ) {
-- 
1.7.10.4