From: simonmar <unknown>
Date: Tue, 13 Apr 2004 13:51:20 +0000 (+0000)
Subject: [project @ 2004-04-13 13:51:20 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1897
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc4978c654295945c4899e39e17f2e2e28956fa5;p=ghc-hetmet.git

[project @ 2004-04-13 13:51:20 by simonmar]
Fix integer truncation

Subimitted by: Ralf Wildenhues <Ralf.Wildenhues@gmx.de>, via
               Nicholas Nethercote <njn25@cam.ac.uk>
---

diff --git a/ghc/utils/hp2ps/Utilities.c b/ghc/utils/hp2ps/Utilities.c
index 57d20b1..aba1caf 100644
--- a/ghc/utils/hp2ps/Utilities.c
+++ b/ghc/utils/hp2ps/Utilities.c
@@ -73,7 +73,7 @@ CommaPrint(fp,n)
         fprintf(fp, "%d", (int)n);
     } else {
         CommaPrint(fp, n / ONETHOUSAND);
-        fprintf(fp, ",%03d", (int)n % ONETHOUSAND);
+        fprintf(fp, ",%03d", (int)(n % ONETHOUSAND));
     }
 }