From: panne <unknown>
Date: Mon, 11 Nov 2002 18:42:09 +0000 (+0000)
Subject: [project @ 2002-11-11 18:42:09 by panne]
X-Git-Tag: Approx_11550_changesets_converted~1456
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0352501bcaff24bb58cee305c19480e7bd0ff881;p=ghc-hetmet.git

[project @ 2002-11-11 18:42:09 by panne]
Warning police: Removed "possibly uninitialized variable" warning.
---

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