From 355dd8cb4bff2821f4b4da2bd989441b882ed5de Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 1 Apr 2011 11:23:12 +0200
Subject: [PATCH] make_objcode_by_mmap uses MAP_PRIVATE, not MAP_SHARED

* libguile/objcodes.c (make_objcode_by_mmap): MAP_PRIVATE, not
  MAP_SHARED -- we don't need to update the underlying file, nor do we
  need to see updates.
---
 libguile/objcodes.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index f4e20f8f2..e91e265da 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -70,7 +70,7 @@ make_objcode_by_mmap (int fd)
     scm_misc_error (FUNC_NAME, "object file too small (~a bytes)",
 		    scm_list_1 (SCM_I_MAKINUM (st.st_size)));
 
-  addr = mmap (0, st.st_size, PROT_READ, MAP_SHARED, fd, 0);
+  addr = mmap (0, st.st_size, PROT_READ, MAP_PRIVATE, fd, 0);
   if (addr == MAP_FAILED)
     {
       (void) close (fd);