From cc517f07f309c6a46eac9ace167749f6b0648965 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 4 Feb 2002 20:26:25 +0000 Subject: [PATCH] [project @ 2002-02-04 20:26:25 by sof] wibble --- ghc/rts/Printer.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index 86a10a0..abbc91b 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.c,v 1.50 2001/12/06 14:33:02 simonmar Exp $ + * $Id: Printer.c,v 1.51 2002/02/04 20:26:25 sof Exp $ * * (c) The GHC Team, 1994-2000. * @@ -314,7 +314,7 @@ printClosure( StgClosure *obj ) putchar(arrWordsGetChar(obj,i)); } */ for (i=0; i<((StgArrWords *)obj)->words; i++) - fprintf(stdout, "%ld", ((StgArrWords *)obj)->payload[i]); + fprintf(stdout, "%u", ((StgArrWords *)obj)->payload[i]); fprintf(stdout,"\")\n"); break; } -- 1.7.10.4