[project @ 2002-11-11 11:18:39 by simonmar]

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

diff --git a/ghc/utils/hp2ps/Axes.c b/ghc/utils/hp2ps/Axes.c
index ddd2bbf..0733edd 100644 (file)
--- a/ghc/utils/hp2ps/Axes.c
+++ b/ghc/utils/hp2ps/Axes.c
@@ -107,17 +107,17 @@ YAxisMark(y, num, unit)
     switch (unit) {
     case MEGABYTE :
        fprintf(psfp, "(");
-       CommaPrint(psfp, (int) (num / 1e6 + 0.5));
+       CommaPrint(psfp, (intish) (num / 1e6 + 0.5));
        fprintf(psfp, "M)\n");
        break;
     case KILOBYTE :
        fprintf(psfp, "(");
-       CommaPrint(psfp, (int) (num / 1e3 + 0.5));
+       CommaPrint(psfp, (intish) (num / 1e3 + 0.5));
        fprintf(psfp, "k)\n");
        break;
     case BYTE:
        fprintf(psfp, "(");
-       CommaPrint(psfp, (int) (num + 0.5));
+       CommaPrint(psfp, (intish) (num + 0.5));
        fprintf(psfp, ")\n");
        break;
     }