Micro-optimize gc scavenge.

[sbcl.git] / src / runtime / ppc-assem.S

diff --git a/src/runtime/ppc-assem.S b/src/runtime/ppc-assem.S
index a9a4ed0..3b6e53f 100644 (file)
--- a/src/runtime/ppc-assem.S
+++ b/src/runtime/ppc-assem.S
@@ -284,6 +284,9 @@ x:
 #if BACKEND_PAGE_BYTES == 65536
 # undef BACKEND_PAGE_BYTES
 # define BACKEND_PAGE_BYTES 65536
+#elif BACKEND_PAGE_BYTES == 4096
+# undef BACKEND_PAGE_BYTES
+# define BACKEND_PAGE_BYTES 4096
 #else
 # error BACKEND_PAGE_BYTES mismatch
 #endif
@@ -651,7 +654,7 @@ CSYMBOL(undefined_tramp):
        twllei reg_ZERO,trap_Cerror
        .byte 4
        .byte UNDEFINED_FUN_ERROR
-       .byte 254, sc_DescriptorReg+0x40, 1 /* 140?  sparc says sc_descriptorReg */
+       .byte 254, sc_DescriptorReg+0x80, 0x2 /* 280 */
        /* This stuff is for the continuable error.  I don't think there's
         * any support for it on the lisp side */
        .align 2