blob: e7dfda3be7f275291779518dbb757ff64a6df217 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
=== modified file 'src/lispbibl.d'
--- clisp.orig/src/spvw.d
+++ clisp/src/spvw.d
@@ -3172,7 +3172,7 @@
var aint end = bitm(oint_addr_len-1); /* keep garcol_bit zero */
#endif
var aint part = floor(end - (start & (end-1)),5);
- #if defined(AMD64) && defined(UNIX_LINUX)
+ #if defined(AMD64)
/* Don't use more than 36 address bits, otherwise mmap() fails. */
part &= 0x0000000FFFFFFFFFUL;
#endif
@@ -3232,7 +3232,7 @@
#endif
#endif
var aint part = floor(end - (start & (end-1)),5);
- #if defined(AMD64) && defined(UNIX_LINUX)
+ #if defined(AMD64)
/* Don't use more than 36 address bits, otherwise mmap() fails. */
part &= 0x0000000FFFFFFFFFUL;
#endif
--- clisp.orig/src/spvw_page.d
+++ clisp/src/spvw_page.d
@@ -113,7 +113,7 @@
only a 2^32 size address space. */
#define oint_addr_relevant_len 32
#endif
- #if (defined(IA64) || defined(AMD64)) && defined(UNIX_LINUX)
+ #if defined(IA64) || defined(AMD64)
/* It is unlikely that more than 4 GB will be used. */
#define oint_addr_relevant_len 32
#endif
|