projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove a pointless use of $(HERE_ABS)/
[ghc-hetmet.git]
/
utils
/
hp2ps
/
Main.c
diff --git
a/utils/hp2ps/Main.c
b/utils/hp2ps/Main.c
index
eb50e00
..
947ff46
100644
(file)
--- 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 (!filter) {
pathName = copystring(argv[0]);
DropSuffix(pathName, ".hp");
+#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
+ DropSuffix(pathName, ".exe");
+#endif
baseName = copystring(Basename(pathName));
baseName = copystring(Basename(pathName));
-
+
hpfp = Fp(pathName, &hpfile, ".hp", "r");
psfp = Fp(baseName, &psfile, ".ps", "w");
hpfp = Fp(pathName, &hpfile, ".hp", "r");
psfp = Fp(baseName, &psfile, ".ps", "w");