From: rrt <unknown>
Date: Thu, 6 Apr 2000 10:26:09 +0000 (+0000)
Subject: [project @ 2000-04-06 10:26:09 by rrt]
X-Git-Tag: Approximately_9120_patches~4799
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=95f03856b44cb22cf47f658ab0d619c362d0a589;p=ghc-hetmet.git

[project @ 2000-04-06 10:26:09 by rrt]
POSIX has not heard
of S_IWRITE
It uses S_IWSR.
---

diff --git a/ghc/lib/std/cbits/renameFile.c b/ghc/lib/std/cbits/renameFile.c
index 76ec34b..50bb472 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.6 2000/04/05 17:05:50 rrt Exp $
+ * $Id: renameFile.c,v 1.7 2000/04/06 10:26:09 rrt Exp $
  *
  * renameFile Runtime Support
  */
@@ -58,7 +58,7 @@ StgByteArray npath;
 	    ghc_errstr = "file is a directory";
 	    return -1;
         }
-        while (chmod(npath, S_IWRITE) != 0) {
+        while (chmod(npath, S_IWUSR) != 0) {
 	    if (errno != EINTR) {
                 cvtErrno();
                 stdErrno();