X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhp2ps%2FAxes.c;h=0733edd2e821e8679a568cb64a6efcb772c20420;hb=6458c2c59780ea01a79f3c31b9b2545a0241606d;hp=ddd2bbfa439a55e1663e2a3264069b406fcd5ba2;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/utils/hp2ps/Axes.c b/ghc/utils/hp2ps/Axes.c
index ddd2bbf..0733edd 100644
--- 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;
     }