From e5e1449183fc7e5fcc774612fc3fa0ec0e5b2570 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 5 Apr 2005 09:31:27 +0000
Subject: [PATCH] [project @ 2005-04-05 09:31:27 by simonmar] print format
 type fixup

---
 ghc/rts/STM.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/STM.c b/ghc/rts/STM.c
index efc6259..d4ae643 100644
--- a/ghc/rts/STM.c
+++ b/ghc/rts/STM.c
@@ -90,7 +90,7 @@ static int shake(void) {
   StgTRecHeader *__t = (_t);			\
   StgTRecChunk *__c = __t -> current_chunk;		\
   StgWord __limit = __c -> next_entry_idx;		\
-  TRACE("trec=%p chunk=%p limit=%d\n", __t, __c, __limit); \
+  TRACE("trec=%p chunk=%p limit=%ld\n", __t, __c, __limit); \
   while (__c != END_STM_CHUNK_LIST) {		\
     StgWord __i;                                  \
     for (__i = 0; __i < __limit; __i ++) {		\
@@ -247,7 +247,7 @@ static StgTRecHeader *new_stg_trec_header(StgTRecHeader *enclosing_trec) {
     result -> state = enclosing_trec -> state;
   }
 
-  TRACE("new_stg_trec_header creating %p nidx=%d chunk=%p enclosing_trec=%p state=%d\n",
+  TRACE("new_stg_trec_header creating %p nidx=%ld chunk=%p enclosing_trec=%p state=%d\n",
         result, result->current_chunk->next_entry_idx, result -> current_chunk, enclosing_trec, result->state);
   return result;  
 }
-- 
1.7.10.4