[Cmucl-cvs] [git] CMU Common Lisp branch rtoy-extern-alien-name updated. 20f-34-g434078e

[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, rtoy-extern-alien-name has been updated
       via  434078e9e8a7b7b3069c0cf6e6f618807823f41a (commit)
      from  a1946b35f37aef46677676e2696304ab6b405788 (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 434078e9e8a7b7b3069c0cf6e6f618807823f41a
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Oct 9 23:46:14 2014 -0700

    On sparc, use EXTERN_ALIEN_NAME too when printing out the error message.

diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c
index ff9cffb..183d808 100755
--- a/src/lisp/os-common.c
+++ b/src/lisp/os-common.c
@@ -223,8 +223,9 @@ os_foreign_linkage_init(void)
 	if (i == 0) {
 #if defined(sparc)
             if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("call_into_c"))) {
-		fprintf(stderr, "linkage_data is %s but expected call_into_c\n",
-			c_symbol_name);
+		fprintf(stderr, "linkage_data is %s but expected %s\n",
+			c_symbol_name,
+                        EXTERN_ALIEN_NAME("call_into_c"));
 		lose("First element of linkage_data is bogus.\n");
 	    }
 	    arch_make_linkage_entry(i, (void*) call_into_c, 1);

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

Summary of changes:
 src/lisp/os-common.c |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp