clisp-alpha.patch

   1 --- clisp-2.35/src/spvw.d.orig  2005-08-18 18:56:55.000000000 +0200
   2 +++ clisp-2.35/src/spvw.d       2005-10-10 13:25:37.000000000 +0200
   3 @@ -2671,6 +2671,10 @@
   4        # Don't use more than 36 address bits, otherwise mmap() fails.
   5        part &= 0x0000000FFFFFFFFFUL;
   6        #endif
   7 +      #if defined(DECALPHA) && defined(UNIX_LINUX)
   8 +      # Don't use more than 40 address bits, otherwise mmap() fails.
   9 +      part &= 0x000000FFFFFFFFFFUL;
  10 +      #endif
  11        mem.heaps[0].heap_limit = start + round_down(1*part,map_pagesize);
  12        mem.heaps[1].heap_limit = start + round_down(4*part,map_pagesize);
  13        #endif
  14 @@ -2713,6 +2717,10 @@
  15        # Don't use more than 36 address bits, otherwise mmap() fails.
  16        part &= 0x0000000FFFFFFFFFUL;
  17        #endif
  18 +      #if defined(DECALPHA) && defined(UNIX_LINUX)
  19 +      # Don't use more than 40 address bits, otherwise mmap() fails.
  20 +      part &= 0x000000FFFFFFFFFFUL;
  21 +      #endif
  22        mem.heaps[0].heap_limit = start + round_down(1*part,map_pagesize);
  23        mem.heaps[0].heap_hardlimit =
  24          mem.heaps[1].heap_limit = start + round_down(2*part,map_pagesize);
  25 --- clisp-2.49/src/lispbibl.d.orig      2012-12-13 18:49:18.149361417 +0100
  26 +++ clisp-2.49/src/lispbibl.d   2012-12-13 18:56:22.232685912 +0100
  27 @@ -2979,7 +2979,7 @@
  28  #endif
  29
  30
  31 -#if (oint_addr_shift == 0) && (addr_shift == 0) && defined(TYPECODES) && !defined(WIDE_SOFT) && !(defined(AMD64) && defined(UNIX_LINUX))
  32 +#if (oint_addr_shift == 0) && (addr_shift == 0) && defined(TYPECODES) && !defined(WIDE_SOFT) && !(defined(AMD64) && defined(UNIX_LINUX)) && !(defined(DECALPHA) && defined(UNIX_LINUX))
  33  /* If the address bits are the lower ones and not WIDE_SOFT,
  34   memory mapping may be possible. */
  35