From: simonmar <unknown>
Date: Wed, 12 Feb 2003 11:05:41 +0000 (+0000)
Subject: [project @ 2003-02-12 11:05:41 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1178
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=85a6b8fecdb5f5e1b424c717a5bbdff173dfc094;p=ghc-hetmet.git

[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
--- 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);
     }