File clisp-2.44.1-map_private.patch of Package clisp

--- ffcall-1.10+2.43/callback/trampoline_r/trampoline.c
+++ ffcall-1.10+2.43/callback/trampoline_r/trampoline.c	2003-12-10 23:14:50.000000000 -0800
@@ -452,7 +452,7 @@
     { /* 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);