X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-assem.S;h=3b6e53f374d03bdd8db2be6239080e1b29ca632f;hb=35ab27e7aab71c94aa6be12da15603c7fd87fca8;hp=a9a4ed0352d049af212698a1d69fbd0714eef37a;hpb=fd8e8143cf02ac767e2a46a2bc526933e68ef583;p=sbcl.git

diff --git a/src/runtime/ppc-assem.S b/src/runtime/ppc-assem.S
index a9a4ed0..3b6e53f 100644
--- 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