3e2265ad3e
Fix readline module to also use compat-readline5 instead of readline6. Enable use of lightning on supported arches.
63 lines
3.3 KiB
Diff
63 lines
3.3 KiB
Diff
--- modules/libsvm/config.h.in.orig 2010-06-30 12:02:55.000000000 -0600
|
|
+++ modules/libsvm/config.h.in 2011-06-23 14:28:00.454999254 -0600
|
|
@@ -27,8 +27,8 @@
|
|
/* Define to 1 if you have the `svm_cross_validation' function. */
|
|
#undef HAVE_SVM_CROSS_VALIDATION
|
|
|
|
-/* Define to 1 if you have the `svm_destroy_model' function. */
|
|
-#undef HAVE_SVM_DESTROY_MODEL
|
|
+/* Define to 1 if you have the `svm_free_and_destroy_model' function. */
|
|
+#undef HAVE_SVM_FREE_AND_DESTROY_MODEL
|
|
|
|
/* Define to 1 if you have the `svm_destroy_param' function. */
|
|
#undef HAVE_SVM_DESTROY_PARAM
|
|
--- modules/libsvm/configure.in.orig 2010-06-30 12:02:55.000000000 -0600
|
|
+++ modules/libsvm/configure.in 2011-06-23 14:28:49.333999905 -0600
|
|
@@ -30,7 +30,7 @@
|
|
AC_CHECK_FUNCS(svm_check_parameter dnl
|
|
svm_check_probability_model dnl
|
|
svm_cross_validation dnl
|
|
-svm_destroy_model dnl
|
|
+svm_free_and_destroy_model dnl
|
|
svm_destroy_param dnl
|
|
svm_get_labels dnl
|
|
svm_get_nr_class dnl
|
|
--- modules/libsvm/configure.orig 2010-06-30 12:02:55.000000000 -0600
|
|
+++ modules/libsvm/configure 2011-06-23 14:28:27.827999766 -0600
|
|
@@ -4555,7 +4555,7 @@
|
|
if test "$ac_cv_search_svm_train" = "no"; then
|
|
as_fn_error "cannot find LibSVM library" "$LINENO" 5
|
|
fi
|
|
-for ac_func in svm_check_parameter svm_check_probability_model svm_cross_validation svm_destroy_model svm_destroy_param svm_get_labels svm_get_nr_class svm_get_svm_type svm_get_svr_probability svm_load_model svm_predict svm_predict_probability svm_predict_values svm_save_model svm_train svm_set_print_string_function
|
|
+for ac_func in svm_check_parameter svm_check_probability_model svm_cross_validation svm_free_and_destroy_model svm_destroy_param svm_get_labels svm_get_nr_class svm_get_svm_type svm_get_svr_probability svm_load_model svm_predict svm_predict_probability svm_predict_values svm_save_model svm_train svm_set_print_string_function
|
|
do :
|
|
as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
|
|
ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
|
|
--- modules/libsvm/libsvm.lisp.orig 2010-06-30 11:56:36.000000000 -0600
|
|
+++ modules/libsvm/libsvm.lisp 2011-06-23 14:33:44.334999678 -0600
|
|
@@ -97,11 +97,11 @@
|
|
;;; foreign functions and small wrappers
|
|
;;;
|
|
|
|
-(ffi:def-call-out svm_destroy_model
|
|
- (:arguments (model model)) (:return-type nil))
|
|
+(ffi:def-call-out svm_free_and_destroy_model
|
|
+ (:arguments (model (c-pointer model))) (:return-type nil))
|
|
(defun destroy-model (model)
|
|
(when (validp model)
|
|
- (svm_destroy_model model)
|
|
+ (svm_free_and_destroy_model (ffi:with-c-var (modelp 'model model) (ffi:c-var-address modelp)))
|
|
(setf (validp model) nil)))
|
|
(cl:defun finalize-model (model)
|
|
(ext:finalize (set-foreign-pointer model :copy) #'destroy-model)
|
|
--- modules/libsvm/svm.xml.orig 2010-05-26 11:52:55.000000000 -0600
|
|
+++ modules/libsvm/svm.xml 2011-06-23 14:34:44.021999852 -0600
|
|
@@ -91,7 +91,7 @@
|
|
<varlistentry><term><code>(destroy-model &model-r;)</code></term>
|
|
<listitem><simpara>Release the memory taken by the <type>model</type>
|
|
object and invalidate the &foreign-variable-t; &model-r;.</simpara>
|
|
- <simpara>Calls <function>svm_destroy_model</function>.</simpara>
|
|
+ <simpara>Calls <function>svm_free_and_destroy_model</function>.</simpara>
|
|
<simpara>You do ¬-e; have to call this function yourself, it is
|
|
attached to the &model-r; by <function>train</function>
|
|
and <function>load-model</function> via &finalize;.</simpara>
|