From bc4978c654295945c4899e39e17f2e2e28956fa5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 13 Apr 2004 13:51:20 +0000
Subject: [PATCH] [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>
---
 ghc/utils/hp2ps/Utilities.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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