[project @ 1999-03-01 09:27:49 by sof]

mingw32 tweak

diff --git a/ghc/lib/std/cbits/renameFile.c b/ghc/lib/std/cbits/renameFile.c
index 1ad3e48..630e4d4 100644 (file)
--- a/ghc/lib/std/cbits/renameFile.c
+++ b/ghc/lib/std/cbits/renameFile.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: renameFile.c,v 1.3 1998/12/02 13:27:51 simonm Exp $
+ * $Id: renameFile.c,v 1.4 1999/03/01 09:27:49 sof Exp $
  *
  * renameFile Runtime Support
  */
@@ -21,6 +21,11 @@
 #include <fcntl.h>
 #endif
 
+#ifdef mingw32_TARGET_OS
+#define O_NOCTTY 0
+#endif
+
+
 StgInt
 renameFile(opath, npath)
 StgByteArray opath;