diff --git a/src/lisp/ppc-assem.S b/src/lisp/ppc-assem.S index d816e8b16a2be84955d694d44b9187cb591201af..5bb6ed47c9142fc5effadf6d79e915401ecf74d5 100644 --- a/src/lisp/ppc-assem.S +++ b/src/lisp/ppc-assem.S @@ -236,7 +236,7 @@ x: * The 6 is vm:function-code-offset, the 4 is * the number of bytes in a lispobj. */ - addi reg_LIP,reg_CODE,6*4-type_FunctionPointer + addi reg_LIP,reg_CODE,FUNCTION_CODE_OFFSET mtctr reg_LIP slwi reg_NARGS,reg_NL2,2 bctr