X-Git-Url: http://cgit.sxemacs.org/?p=sxemacs;a=blobdiff_plain;f=src%2Feffi.c;h=06bf61b48e2905002bb2756ee1a2bf5d74eded3c;hp=930d38021eb1237fa8eaeea375b818619bad07bd;hb=182f58aeacc32908883b6b7d8d808c0ca16b5c0a;hpb=7b58fd38c765a7730e9685fb631401171affefa4

diff --git a/src/effi.c b/src/effi.c
index 930d380..06bf61b 100644
--- a/src/effi.c
+++ b/src/effi.c
@@ -1666,6 +1666,8 @@ Return DEVICE display as FFI object.
 /* Callbacks */
 #define FFI_CC_CDECL 0
 
+void* ffi_make_callback_x86(Lisp_Object data, int cc_type);
+
 #if defined __i386__
 static void
 ffi_callback_call_x86(Lisp_Object cbk_info, char *arg_buffer)
@@ -1817,6 +1819,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;
 }