mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

make_objcode_by_mmap uses MAP_PRIVATE, not MAP_SHARED

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-04-01 11:23:12 +02:00
parent d050ef66ec
commit 355dd8cb4b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/objcodes.c
View file

@ -70,7 +70,7 @@ make_objcode_by_mmap (int fd)
scm_misc_error (FUNC_NAME, "object file too small (~a bytes)", scm_misc_error (FUNC_NAME, "object file too small (~a bytes)",
scm_list_1 (SCM_I_MAKINUM (st.st_size))); 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) if (addr == MAP_FAILED)
{ {
(void) close (fd); (void) close (fd);