File clisp-2.44.1-map_private.patch of Package clisp

---
 ffcall-1.10+2.43/callback/trampoline_r/trampoline.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

--- a/ffcall-1.10+2.43/callback/trampoline_r/trampoline.c
+++ b/ffcall-1.10+2.43/callback/trampoline_r/trampoline.c
@@ -368,7 +368,7 @@ __TR_function alloc_trampoline_r (__TR_f
     { /* Get a new page. */
       char* page;
 #ifdef EXECUTABLE_VIA_MMAP_ANONYMOUS
-      page = mmap(0, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_ANONYMOUS | MAP_VARIABLE, -1, 0);
+      page = mmap(0, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0);
 #endif
 #ifdef EXECUTABLE_VIA_MMAP_DEVZERO
       page = mmap(0, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE, zero_fd, 0);
openSUSE Build Service is sponsored by