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

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