From 8058f95c14f77f887430e62bb609c1fec827fcc3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 1 Nov 2007 15:02:28 +0000 Subject: [PATCH] fix a warning --- rts/sm/Scav.c-inc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/rts/sm/Scav.c-inc b/rts/sm/Scav.c-inc index 951341f..7b3a65f 100644 --- a/rts/sm/Scav.c-inc +++ b/rts/sm/Scav.c-inc @@ -462,5 +462,6 @@ scavenge_block (bdescr *bd, StgPtr scan) } } - debugTrace(DEBUG_gc, " scavenged %ld bytes", (bd->free - scan) * sizeof(W_)); + debugTrace(DEBUG_gc, " scavenged %ld bytes", + (unsigned long)((bd->free - scan) * sizeof(W_))); } -- 1.7.10.4