.
OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=44
This commit is contained in:
parent
449951b9b6
commit
bd0279957e
@ -1,15 +0,0 @@
|
||||
---
|
||||
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);
|
@ -1,16 +0,0 @@
|
||||
---
|
||||
ffcall-1.10+2.43/callback/trampoline_r/trampoline_r.h.in | 5 +++++
|
||||
1 file changed, 5 insertions(+)
|
||||
|
||||
--- a/ffcall-1.10+2.43/callback/trampoline_r/trampoline_r.h.in
|
||||
+++ b/ffcall-1.10+2.43/callback/trampoline_r/trampoline_r.h.in
|
||||
@@ -22,4 +22,9 @@ extern __TR_function trampoline_r_addres
|
||||
extern void* trampoline_r_data0 (void*);
|
||||
extern void* trampoline_r_data1 (void*);
|
||||
|
||||
+/* http://article.gmane.org/gmane.lisp.clisp.general/7485 */
|
||||
+#ifndef MAP_VARIABLE
|
||||
+# define MAP_VARIABLE 0
|
||||
+#endif
|
||||
+
|
||||
#endif /* _TRAMPOLINE_R_H */
|
Loading…
Reference in New Issue
Block a user