From: simonmar <unknown>
Date: Tue, 5 Apr 2005 09:31:27 +0000 (+0000)
Subject: [project @ 2005-04-05 09:31:27 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~808
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e5e1449183fc7e5fcc774612fc3fa0ec0e5b2570;p=ghc-hetmet.git

[project @ 2005-04-05 09:31:27 by simonmar]
print format type fixup
---

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;  
 }