From 560a064920ce0f3428f220e28fa61a494c19bfc4 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 1 Mar 1999 09:27:49 +0000 Subject: [PATCH] [project @ 1999-03-01 09:27:49 by sof] mingw32 tweak --- ghc/lib/std/cbits/renameFile.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 #endif +#ifdef mingw32_TARGET_OS +#define O_NOCTTY 0 +#endif + + StgInt renameFile(opath, npath) StgByteArray opath; -- 1.7.10.4