Commit 178c1421 authored by panne's avatar panne

[project @ 2005-05-21 16:09:18 by panne]

Warning police (format strings, unused variables)
parent faa8d785
......@@ -744,15 +744,15 @@ dumpCensus( Census *census )
#ifdef PROFILING
if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV) {
fprintf(hp_file, "VOID\t%lu\n", census->void_total * sizeof(W_));
fprintf(hp_file, "VOID\t%lu\n", (unsigned long)(census->void_total) * sizeof(W_));
fprintf(hp_file, "LAG\t%lu\n",
(census->not_used - census->void_total) * sizeof(W_));
(unsigned long)(census->not_used - census->void_total) * sizeof(W_));
fprintf(hp_file, "USE\t%lu\n",
(census->used - census->drag_total) * sizeof(W_));
(unsigned long)(census->used - census->drag_total) * sizeof(W_));
fprintf(hp_file, "INHERENT_USE\t%lu\n",
census->prim * sizeof(W_));
fprintf(hp_file, "DRAG\t%lu\n", census->drag_total *
sizeof(W_));
(unsigned long)(census->prim) * sizeof(W_));
fprintf(hp_file, "DRAG\t%lu\n",
(unsigned long)(census->drag_total) * sizeof(W_));
printSample(rtsFalse, census->time);
return;
}
......@@ -830,7 +830,7 @@ dumpCensus( Census *census )
}
#endif
fprintf(hp_file, "\t%ld\n", count * sizeof(W_));
fprintf(hp_file, "\t%lu\n", (unsigned long)count * sizeof(W_));
}
printSample(rtsFalse, census->time);
......
......@@ -4074,10 +4074,10 @@ printThreadBlockage(StgTSO *tso)
{
switch (tso->why_blocked) {
case BlockedOnRead:
debugBelch("is blocked on read from fd %ld", tso->block_info.fd);
debugBelch("is blocked on read from fd %d", (int)(tso->block_info.fd));
break;
case BlockedOnWrite:
debugBelch("is blocked on write to fd %ld", tso->block_info.fd);
debugBelch("is blocked on write to fd %d", (int)(tso->block_info.fd));
break;
#if defined(mingw32_HOST_OS)
case BlockedOnDoProc:
......@@ -4085,7 +4085,7 @@ printThreadBlockage(StgTSO *tso)
break;
#endif
case BlockedOnDelay:
debugBelch("is blocked until %ld", tso->block_info.target);
debugBelch("is blocked until %ld", (long)(tso->block_info.target));
break;
case BlockedOnMVar:
debugBelch("is blocked on an MVar");
......
......@@ -376,13 +376,13 @@ gcStablePtrTable( void )
if (p->sn_obj == NULL) {
// StableName object is dead
freeStableName(p);
IF_DEBUG(stable, debugBelch("GC'd Stable name %ld\n",
IF_DEBUG(stable, debugBelch("GC'd Stable name %d\n",
p - stable_ptr_table));
continue;
} else {
p->addr = (StgPtr)isAlive((StgClosure *)p->addr);
IF_DEBUG(stable, debugBelch("Stable name %ld still alive at %p, ref %ld\n", p - stable_ptr_table, p->addr, p->ref));
IF_DEBUG(stable, debugBelch("Stable name %d still alive at %p, ref %ld\n", p - stable_ptr_table, p->addr, p->ref));
}
}
}
......
......@@ -30,8 +30,10 @@
/* ticks left before next pre-emptive context switch */
static int ticks_to_ctxt_switch = 0;
#if defined(RTS_SUPPORTS_THREADS)
/* idle ticks left before we perform a GC */
static int ticks_to_gc = 0;
#endif
/*
* Function: handle_tick()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment