From 16184daf9573bef0a1892985747711f890a39eed Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 16 Oct 2021 12:19:15 +0800 Subject: [PATCH] g_list_free swigged GList* arguments used by xaccQueryAddAccountMatch and gnc_price_list_equal. SplitList TransList LotList and CommodityList are not currently being passed as arguments. --- bindings/engine.i | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/bindings/engine.i b/bindings/engine.i index a8fe5827d29..bdc9057f376 100644 --- a/bindings/engine.i +++ b/bindings/engine.i @@ -67,7 +67,6 @@ GLIST_HELPER_INOUT(TransList, SWIGTYPE_p_Transaction); GLIST_HELPER_INOUT(LotList, SWIGTYPE_p_GNCLot); GLIST_HELPER_INOUT(AccountList, SWIGTYPE_p_Account); GLIST_HELPER_INOUT(PriceList, SWIGTYPE_p_GNCPrice); -// TODO: free PriceList? GLIST_HELPER_INOUT(CommodityList, SWIGTYPE_p_gnc_commodity); %typemap(newfree) gchar * "g_free($1);" @@ -103,6 +102,13 @@ static const GncGUID * gncBudgetGetGUID(GncBudget *x) { return qof_instance_get_guid(QOF_INSTANCE(x)); } %} +%typemap (freearg) AccountList * "g_list_free ($1);" +%typemap (freearg) PriceList * "g_list_free ($1);" +%typemap (freearg) SplitList * "g_list_free ($1);" +%typemap (freearg) TransList * "g_list_free ($1);" +%typemap (freearg) LotList * "g_list_free ($1);" +%typemap (freearg) CommodityList * "g_list_free ($1);" + /* NB: The object ownership annotations should already cover all the functions currently used in guile, but not all the functions that are wrapped. So, we should contract the interface to wrap only the used