[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-12-2-gb038df8

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  b038df8de36e85365670a50bc096c8ea45f25db0 (commit)
      from  f8a84c4251d74a2c3f3f17ff465b3d2d0ad78e72 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b038df8de36e85365670a50bc096c8ea45f25db0
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Jan 17 10:12:21 2015 -0800

    Simplify code to use FUNCTION_CODE_OFFSET instead of computing the
    value directly.

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

-----------------------------------------------------------------------

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


hooks/post-receive
-- 
CMU Common Lisp