From: Nelson Ferreira <nelson.ferreira@ieee.org>
Date: Wed, 10 Jun 2015 14:29:49 +0000 (-0400)
Subject: Signal error when callbacks are not supported in ffi
X-Git-Tag: v22.1.16~38
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=3ba78988;p=sxemacs

Signal error when callbacks are not supported in ffi
---

diff --git a/src/effi.c b/src/effi.c
index 930d380..6baf2e6 100644
--- a/src/effi.c
+++ b/src/effi.c
@@ -1817,6 +1817,13 @@ Create dynamic callback and return pointer to it.
 	ptr = Fmake_ffi_object(Qpointer, Qnil);
 #ifdef __i386__
 	XEFFIO(ptr)->fop.ptr = ffi_make_callback_x86(data, XINT(cctype));
+#else
+#ifdef SXEMACS
+        error("FFI Callbacks not supported on this configuration");
+#else
+        signal_ferror(Qinternal_error,
+                      "FFI Callbacks not supported on this configuration");
+#endif	/* SXEMACS */
 #endif /* __i386__ */
 	return ptr;
 }