[project @ 2004-11-16 10:00:10 by simonmar]

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

diff --git a/ghc/utils/hp2ps/Utilities.c b/ghc/utils/hp2ps/Utilities.c
index c6faca4..4589327 100644 (file)
--- a/ghc/utils/hp2ps/Utilities.c
+++ b/ghc/utils/hp2ps/Utilities.c
@@ -67,19 +67,19 @@ 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));
     }
 }
 
 void *
 xmalloc(n)
-  int n;
+  size_t n;
 {
     void *r;
 
@@ -94,7 +94,7 @@ xmalloc(n)
 void *
 xrealloc(p, n)
   void *p;
-  int n;
+  size_t n;
 {
     void *r;
     extern void *realloc();