X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-assem.S;h=28fe4731b641154245f1906f7fb23b69642eaea4;hb=e4542bc034db18cf98f005b2dac53a6d7d5c7260;hp=afd0b1c9c97a9db0ace396d5b60763bb05edcc55;hpb=ded744f74ab2f1a97679ad4f91e0eb8d995daef2;p=sbcl.git

diff --git a/src/runtime/ppc-assem.S b/src/runtime/ppc-assem.S
index afd0b1c..28fe473 100644
--- a/src/runtime/ppc-assem.S
+++ b/src/runtime/ppc-assem.S
@@ -72,7 +72,7 @@ x:
 (NFPR_SAVE_BYTES(first_f)+ NGPR_SAVE_BYTES(first_g)+ FRAME_ARG_BYTES(out_arg_words))
 #define SAVE_FPR(n) stfd f##n,-8*(32- n)(r11)
 #define SAVE_GPR(n) stw r##n,-4*(32- n)(r11)
-#define FULL_FRAME_SIZE FRAME_SIZE(FIRST_SAVE_GPR,FIRST_SAVE_FPR,8,1)
+#define FULL_FRAME_SIZE (FRAME_SIZE(FIRST_SAVE_GPR,FIRST_SAVE_FPR,8,1)+15&~15)
 #define RESTORE_FPR(n) lfd f##n,-8*(32- n)(r11)
 #define RESTORE_GPR(n) lwz r##n,-4*(32- n)(r11)
 #else
@@ -515,12 +515,11 @@ lra:
 	.byte 0,0,0,SIMPLE_FUN_HEADER_WIDETAG
 	.byte 18<<2
 CSYMBOL(undefined_tramp):	
-	.byte 0,0,24
+	.byte 0,0,48
 	.long CSYMBOL(undefined_tramp)
 	.long NIL
 	.long NIL
 	.long NIL
-	.long NIL
 	twllei reg_ZERO,trap_Cerror
 	.byte 4
 	.byte UNDEFINED_FUN_ERROR
@@ -530,7 +529,9 @@ CSYMBOL(undefined_tramp):
 	la reg_LIP,SIMPLE_FUN_CODE_OFFSET(reg_CODE)
 	mtctr reg_LIP
 	bctr
-	
+	mr reg_CSP,reg_CFP
+	b 1b
+
 	SET_SIZE(xundefined_tramp)
 
 	GFUNCDEF(xclosure_tramp)