[project @ 2003-11-10 12:04:25 by simonpj]

[ghc-hetmet.git] / ghc / utils / hp2ps / Utilities.c

diff --git a/ghc/utils/hp2ps/Utilities.c b/ghc/utils/hp2ps/Utilities.c
index c6faca4..57d20b1 100644 (file)
--- a/ghc/utils/hp2ps/Utilities.c
+++ b/ghc/utils/hp2ps/Utilities.c
@@ -67,13 +67,13 @@ OpenFile(s, mode)
 void
 CommaPrint(fp,n)
   FILE* fp;
-  int n;
+  intish n;
 {
     if (n < ONETHOUSAND) {
-        fprintf(fp, "%d", n);
+        fprintf(fp, "%d", (int)n);
     } else {
         CommaPrint(fp, n / ONETHOUSAND);
-        fprintf(fp, ",%03d", n % ONETHOUSAND);
+        fprintf(fp, ",%03d", (int)n % ONETHOUSAND);
     }
 }