Attachment 144512 Details for Bug 220053 – Updated patch for 64KiB page size.

[patch] Updated patch for 64KiB page size.

sbcl-1.0.1-ppc-64KiB-page.patch (text/plain), 2.45 KB, created by David Woodhouse on 2006-12-28 23:58:15 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Woodhouse

Created: 2006-12-28 23:58:15 UTC

Size: 2.45 KB

patch

obsolete

>--- sbcl-1.0.1/src/runtime/linux-os.c~	2006-12-28 18:34:23.000000000 +0000
>+++ sbcl-1.0.1/src/runtime/linux-os.c	2006-12-28 18:34:25.000000000 +0000
>@@ -185,7 +185,12 @@ os_init(char *argv[], char *envp[])
>             "LD_ASSUME_KERNEL\n");
>     }
> #endif
>+#ifdef LISP_FEATURE_PPC
>+    /* Assume 64KiB pages on PowerPC, since that's what the ABI says */
>+    os_vm_page_size = 65536;
>+#else
>     os_vm_page_size = getpagesize();
>+#endif
> 
>     /* KLUDGE: Disable memory randomization on new Linux kernels
>      * by setting a personality flag and re-executing. (We need
>--- sbcl-1.0.1/src/compiler/ppc/backend-parms.lisp~	2006-12-28 19:26:26.000000000 +0000
>+++ sbcl-1.0.1/src/compiler/ppc/backend-parms.lisp	2006-12-28 19:22:35.000000000 +0000
>@@ -3,5 +3,5 @@
> (def!constant +backend-fasl-file-implementation+ :ppc)
> (setf *backend-register-save-penalty* 3)
> (setf *backend-byte-order* :big-endian)
>-(setf *backend-page-size* 4096)
>+(setf *backend-page-size* 65536)
> 
>--- sbcl-1.0.1/src/code/linux-os.lisp~	2006-12-28 19:28:32.000000000 +0000
>+++ sbcl-1.0.1/src/code/linux-os.lisp	2006-12-28 19:28:11.000000000 +0000
>@@ -48,4 +48,4 @@
>   ;; probably should call getpagesize()
>   ;; FIXME: Or we could just get rid of this, since the uses of it look
>   ;; disposable.
>-  4096)
>+  65536)
>--- sbcl-1.0.1/src/compiler/ppc/parms.lisp~	2006-12-28 19:31:08.000000000 +0000
>+++ sbcl-1.0.1/src/compiler/ppc/parms.lisp	2006-12-28 19:31:16.000000000 +0000
>@@ -27,7 +27,7 @@
> 
> ;;; The size in bytes of the GENCGC pages. Should be a multiple of the
> ;;; architecture code size.
>-(def!constant gencgc-page-size 4096)
>+(def!constant gencgc-page-size 65536)
> 
> ;;; flags for the generational garbage collector
> (def!constant pseudo-atomic-interrupted-flag 1)
>--- sbcl-1.0.1/src/runtime/gencgc-internal.h~	2006-12-28 19:54:14.000000000 +0000
>+++ sbcl-1.0.1/src/runtime/gencgc-internal.h	2006-12-28 19:54:52.000000000 +0000
>@@ -40,16 +40,8 @@ struct page {
>      * than the actual bytes used for pages within the current
>      * allocation regions. It should be 0 for all unallocated pages (not
>      * hard to achieve).
>-     *
>-     * Currently declared as an unsigned short to make the struct size
>-     * smaller. This means that GENCGC-PAGE-SIZE is constrained to fit
>-     * inside a short.
>      */
>-    unsigned short bytes_used;
>-
>-#if USHRT_MAX < PAGE_BYTES
>-#error "PAGE_BYTES too large"
>-#endif
>+    unsigned bytes_used;
> 
>     unsigned
>         /* This is set when the page is write-protected. This should

Actions: View | Diff

Attachments on bug 220053: 144482 | 144512 | 144540 | 144568 | 144583