From ee975d1ba18dfd418481151a9c3449059ffcfe0a Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 2 Dec 2014 20:34:57 -0800
Subject: [PATCH] Use the same code for sparc and ppc to handle the call_into_c
 entry. They were identical before anyway, so make it so.

---
 src/lisp/os-common.c | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c
index 183d80882..ab82d3688 100755
--- a/src/lisp/os-common.c
+++ b/src/lisp/os-common.c
@@ -221,7 +221,7 @@ os_foreign_linkage_init(void)
         }
 #endif        
 	if (i == 0) {
-#if defined(sparc)
+#if defined(sparc) || (defined(DARWIN) && defined(__ppc__))
             if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("call_into_c"))) {
 		fprintf(stderr, "linkage_data is %s but expected %s\n",
 			c_symbol_name,
@@ -229,14 +229,6 @@ os_foreign_linkage_init(void)
 		lose("First element of linkage_data is bogus.\n");
 	    }
 	    arch_make_linkage_entry(i, (void*) call_into_c, 1);
-#elif (defined(DARWIN) && defined(__ppc__))
-	    if (type != 1 || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("call_into_c"))) {
-		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, &call_into_c, 1);
 #else
 	    if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name,
                                                     EXTERN_ALIEN_NAME("resolve_linkage_tramp"))) {
-- 
GitLab