From b038df8de36e85365670a50bc096c8ea45f25db0 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 17 Jan 2015 10:12:21 -0800
Subject: [PATCH] Simplify code to use FUNCTION_CODE_OFFSET instead of
 computing the value directly.

---
 src/lisp/ppc-assem.S | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lisp/ppc-assem.S b/src/lisp/ppc-assem.S
index d816e8b16..5bb6ed47c 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
-- 
GitLab