0.9.4.68:

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

diff --git a/src/runtime/ppc-assem.S b/src/runtime/ppc-assem.S
index afd0b1c..53e8cad 100644 (file)
--- a/src/runtime/ppc-assem.S
+++ b/src/runtime/ppc-assem.S
@@ -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)