diff options
| author | panne <unknown> | 2002-10-05 22:31:04 +0000 |
|---|---|---|
| committer | panne <unknown> | 2002-10-05 22:31:04 +0000 |
| commit | ba90d7e0d34e6fd8afb8271c56be9cca2bde0809 (patch) | |
| tree | ba3c8dc3ea156ad9f78ca17d558da35748420a0f /ghc | |
| parent | 2c59dab883c0676cc8e398912d77e00f86cd7bbc (diff) | |
| download | haskell-ba90d7e0d34e6fd8afb8271c56be9cca2bde0809.tar.gz | |
[project @ 2002-10-05 22:31:04 by panne]
Warning police #13: Sync fprintf format strings with args in an
architecture-neutral way.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/rts/RtsUtils.c | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/ghc/rts/RtsUtils.c b/ghc/rts/RtsUtils.c index 775735986e..69a1450aea 100644 --- a/ghc/rts/RtsUtils.c +++ b/ghc/rts/RtsUtils.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsUtils.c,v 1.27 2002/08/16 13:29:07 simonmar Exp $ + * $Id: RtsUtils.c,v 1.28 2002/10/05 22:31:04 panne Exp $ * * (c) The GHC Team, 1998-1999 * @@ -300,21 +300,21 @@ char * ullong_format_string(ullong x, char *s, rtsBool with_commas) { if (x < (ullong)1000) - sprintf(s, "%d", (nat)x); + sprintf(s, "%lu", (lnat)x); else if (x < (ullong)1000000) - sprintf(s, (with_commas) ? "%ld,%3.3ld" : "%ld%3.3ld", - (nat)((x)/(ullong)1000), - (nat)((x)%(ullong)1000)); + sprintf(s, (with_commas) ? "%lu,%3.3lu" : "%lu%3.3lu", + (lnat)((x)/(ullong)1000), + (lnat)((x)%(ullong)1000)); else if (x < (ullong)1000000000) - sprintf(s, (with_commas) ? "%ld,%3.3ld,%3.3ld" : "%ld%3.3ld%3.3ld", - (nat)((x)/(ullong)1000000), - (nat)((x)/(ullong)1000%(ullong)1000), - (nat)((x)%(ullong)1000)); + sprintf(s, (with_commas) ? "%lu,%3.3lu,%3.3lu" : "%lu%3.3lu%3.3lu", + (lnat)((x)/(ullong)1000000), + (lnat)((x)/(ullong)1000%(ullong)1000), + (lnat)((x)%(ullong)1000)); else - sprintf(s, (with_commas) ? "%ld,%3.3ld,%3.3ld,%3.3ld" : "%ld%3.3ld%3.3ld%3.3ld", - (nat)((x)/(ullong)1000000000), - (nat)((x)/(ullong)1000000%(ullong)1000), - (nat)((x)/(ullong)1000%(ullong)1000), - (nat)((x)%(ullong)1000)); + sprintf(s, (with_commas) ? "%lu,%3.3lu,%3.3lu,%3.3lu" : "%lu%3.3lu%3.3lu%3.3lu", + (lnat)((x)/(ullong)1000000000), + (lnat)((x)/(ullong)1000000%(ullong)1000), + (lnat)((x)/(ullong)1000%(ullong)1000), + (lnat)((x)%(ullong)1000)); return s; } |