summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2010-06-20 00:04:59 +0000
committerIan Lynagh <igloo@earth.li>2010-06-20 00:04:59 +0000
commit606452f9c07defe1f3603a35f867fb4597a5dfb5 (patch)
treec5086ecfac7829e81d9ddb2cefe3e42a8457f980 /rts
parente7145eeefd01106cedb16a22866eb5160ccfb030 (diff)
downloadhaskell-606452f9c07defe1f3603a35f867fb4597a5dfb5.tar.gz
Remove some old commented out code
Diffstat (limited to 'rts')
-rw-r--r--rts/Printer.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/rts/Printer.c b/rts/Printer.c
index b55f1055f8..565a11ed77 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -289,10 +289,6 @@ printClosure( StgClosure *obj )
{
StgWord i;
debugBelch("ARR_WORDS(\"");
- /* ToDo: we can't safely assume that this is a string!
- for (i = 0; arrWordsGetChar(obj,i); ++i) {
- putchar(arrWordsGetChar(obj,i));
- } */
for (i=0; i<arr_words_words((StgArrWords *)obj); i++)
debugBelch("%lu", (lnat)((StgArrWords *)obj)->payload[i]);
debugBelch("\")\n");