From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Mon, 16 Mar 1992 16:51:21 +0000 (+0000)
Subject: Don't unlink file before closing it if the system does not allow that.
X-Git-Tag: 20090517-FFI~9586
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ea0544c96a661ec7bee4c638e1c72587f849d411;p=mit-scheme.git

Don't unlink file before closing it if the system does not allow that.
Fixed Reset_Memory to remember to unlink file.
---

diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index 8c1d894f2..cdc3c2780 100644
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.70 1992/02/29 19:48:36 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.71 1992/03/16 16:51:21 mhwu Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -43,10 +43,11 @@ MIT in each case. */
 #ifdef DOS386
 #include "msdos.h"
 #define SUB_DIRECTORY_DELIMITER '\\'
-extern void EXFUN (mktemp, (unsigned char *));
+extern char * EXFUN (mktemp, (char *));
 #else
 #include "ux.h"
 #define SUB_DIRECTORY_DELIMITER '/'
+#define UNLINK_BEFORE_CLOSE
 extern int EXFUN (unlink, (CONST char *));
 #endif
 
@@ -1669,7 +1670,7 @@ do {									\
   open_gc_file (size, 1);						\
 } while (0)
 
-#define BUFFER_SHUTDOWN(lt)	close_gc_file (0)
+#define BUFFER_SHUTDOWN(lt)	close_gc_file (lt)
 
 #define INITIALIZE_IO()		do { } while (0)
 #define AWAIT_IO_COMPLETION()	do { } while (0)
@@ -1904,10 +1905,13 @@ DEFUN (open_gc_file, (size, unlink_p),
     termination_open_gc_file ("open", ((char *) NULL));
 
   keep_gc_file_p = (exists_p || option_gc_keep);
+
+#ifdef UNLINK_BEFORE_CLOSE
   if (!keep_gc_file_p && unlink_p)
   {
     (void) (unlink (gc_file_name));
   }
+#endif  
 
 #ifdef HAVE_PREALLOC
   if (!exists_p)