[project @ 1999-05-05 10:33:13 by sof]

[ghc-hetmet.git] / ghc / lib / std / cbits / renameFile.c

diff --git a/ghc/lib/std/cbits/renameFile.c b/ghc/lib/std/cbits/renameFile.c
index c52d575..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.1 1998/04/10 10:54:48 simonm Exp $
+ * $Id: renameFile.c,v 1.4 1999/03/01 09:27:49 sof Exp $
  *
  * renameFile Runtime Support
  */
@@ -21,8 +21,15 @@
 #include <fcntl.h>
 #endif
 
+#ifdef mingw32_TARGET_OS
+#define O_NOCTTY 0
+#endif
+
+
 StgInt
-renameFile(StgByteArray opath, StgByteArray npath)
+renameFile(opath, npath)
+StgByteArray opath;
+StgByteArray npath;
 {
     struct stat sb;
     int fd;