X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhp2ps%2FMain.c;h=947ff46731da8870d9c7036b6b90130de36a90a7;hb=34cc75e1a62638f2833815746ebce0a9114dc26b;hp=eb50e000366db3a8138a94d5665edc8f7ff25419;hpb=138de4239c816531feebc8dcc478995d984276a9;p=ghc-hetmet.git

diff --git a/utils/hp2ps/Main.c b/utils/hp2ps/Main.c
index eb50e00..947ff46 100644
--- a/utils/hp2ps/Main.c
+++ b/utils/hp2ps/Main.c
@@ -145,8 +145,11 @@ nextarg: ;
     if (!filter) {
 	pathName = copystring(argv[0]);
 	DropSuffix(pathName, ".hp");
+#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
+	DropSuffix(pathName, ".exe");
+#endif
 	baseName = copystring(Basename(pathName));
-
+        
         hpfp  = Fp(pathName, &hpfile, ".hp", "r"); 
 	psfp  = Fp(baseName, &psfile, ".ps", "w");