diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-02-28 12:03:19 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-02-28 12:03:19 +0000 |
| commit | 6a7778b95a726f460288123d0539310bb66302f4 (patch) | |
| tree | 47d7243cb8fab683aa632799a00b961536549f2a /utils | |
| parent | 5b51ce96dae021692d45b9aed5ac7bfe39b237bc (diff) | |
| download | haskell-6a7778b95a726f460288123d0539310bb66302f4.tar.gz | |
Windows: the .hp file is <prog>.exe.hp
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/hp2ps/Main.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/utils/hp2ps/Main.c b/utils/hp2ps/Main.c index eb50e00036..53f010ba1e 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"); |