From: sof <unknown>
Date: Mon, 1 Mar 1999 09:27:49 +0000 (+0000)
Subject: [project @ 1999-03-01 09:27:49 by sof]
X-Git-Tag: Approximately_9120_patches~6488
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=560a064920ce0f3428f220e28fa61a494c19bfc4;p=ghc-hetmet.git

[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
--- 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;