From 0352501bcaff24bb58cee305c19480e7bd0ff881 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 11 Nov 2002 18:42:09 +0000
Subject: [PATCH] [project @ 2002-11-11 18:42:09 by panne] Warning police:
 Removed "possibly uninitialized variable" warning.

---
 ghc/utils/hp2ps/PsFile.c |   15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/ghc/utils/hp2ps/PsFile.c b/ghc/utils/hp2ps/PsFile.c
index 5286ad9..40b08da 100644
--- a/ghc/utils/hp2ps/PsFile.c
+++ b/ghc/utils/hp2ps/PsFile.c
@@ -59,22 +59,13 @@ static void Scaling   PROTO((floatish));		/* forward */
 static void
 Prologue()
 {
-    floatish epsfscale;
-
-    if (eflag) epsfscale = epsfwidth / (floatish) borderwidth;
-
     if (eflag) {
+	floatish epsfscale = epsfwidth / (floatish) borderwidth;
 	EPSFSpecialComments(epsfscale);
-    } else {
-	StandardSpecialComments();
-    }
-
-    if (eflag) {
 	Scaling(epsfscale);
-    } else if (gflag) {
-	Portrait();
     } else {
-	Landscape();
+	StandardSpecialComments();
+	if (gflag) Portrait(); else Landscape();
     }
 }
 
-- 
1.7.10.4