[project @ 2000-10-11 10:17:32 by rrt]

Don't read TMPDIR from the environment under mingwin; avoids / being
turned into \ in the env var, which then causes problems when this value
is written to a shell file and then executed.

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index c80e1b6..2c5c5af 100644 (file)
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -W -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.65 2000/10/09 09:19:16 simonmar Exp $
+-- $Id: Main.hs,v 1.66 2000/10/11 10:17:32 rrt Exp $
 --
 -- GHC Driver program
 --
@@ -1131,8 +1131,10 @@ main =
    argv'  <- setTopDir argv
 
        -- check whether TMPDIR is set in the environment
+#ifndef mingw32_TARGET_OS
    IO.try (do dir <- getEnv "TMPDIR" -- fails if not set
              writeIORef tmpdir dir)
+#endif
 
        -- read the package configuration
    conf_file <- readIORef package_config