X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.c;h=be105e5d86a23a9689d80b8d3df2f18af1bb3dae;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=bdfaef2c33aba3032f1152356d328a204abb87c1;hpb=c6f5bc9d26b4f3d46c1d9947b5ea5a3514c802b3;p=sbcl.git

diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index bdfaef2..be105e5 100644
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -1574,6 +1574,8 @@ arrange_return_to_lisp_function(os_context_t *context, lispobj function)
 #endif
 }
 
+// x86-64 has an undefined_alien_function tramp in x86-64-assem.S
+#ifndef LISP_FEATURE_X86_64
 /* KLUDGE: Theoretically the approach we use for undefined alien
  * variables should work for functions as well, but on PPC/Darwin
  * we get bus error at bogus addresses instead, hence this workaround,
@@ -1583,8 +1585,9 @@ arrange_return_to_lisp_function(os_context_t *context, lispobj function)
 void
 undefined_alien_function(void)
 {
-    funcall0(StaticSymbolFunction(UNDEFINED_ALIEN_FUNCTION_ERROR));
+    funcall0(StaticSymbolFunction(UNDEFINED_ALIEN_FUN_ERROR));
 }
+#endif
 
 void lower_thread_control_stack_guard_page(struct thread *th)
 {