[project @ 2003-02-12 11:05:41 by simonmar]

Fix bug caused by non-use of function prototypes (grrr!).

diff --git a/ghc/utils/hp2ps/Shade.c b/ghc/utils/hp2ps/Shade.c
index e898027..2920fb6 100644 (file)
--- a/ghc/utils/hp2ps/Shade.c
+++ b/ghc/utils/hp2ps/Shade.c
@@ -121,9 +121,9 @@ SetPSColour(shade)
 {
     if (cflag) {
        fprintf(psfp, "%f %f %f setrgbcolor\n",
-               extract_colour(shade,    100),
-               extract_colour(shade,  10000),
-               extract_colour(shade,1000000));
+               extract_colour(shade, (intish)100),
+               extract_colour(shade, (intish)10000),
+               extract_colour(shade, (intish)1000000));
     } else {
        fprintf(psfp, "%f setgray\n", shade);
     }