IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-30 20:54:08 -06:00
Code Issues Packages Projects Releases Wiki Activity

Correct memory handling of scm_to_locale_string per guile manual

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@20755 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
J. Alex Aycinena 2011-06-13 01:05:41 +00:00
parent 41b9a40e77
commit f8c342413b
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/engine/glib-helpers.c
View File

@ -121,9 +121,17 @@ gnc_scm_to_glist_string(SCM list)
while (!scm_is_null (list))
{
const gchar * str = scm_to_locale_string (SCM_CAR(list));
if (str)
glist = g_list_prepend (glist, g_strdup (str));
if (scm_is_string(SCM_CAR(list)))
{
char * str;
scm_dynwind_begin (0);
str = scm_to_locale_string (SCM_CAR(list));
if (str)
glist = g_list_prepend (glist, g_strdup (str));
scm_dynwind_free (str);
scm_dynwind_end ();
}
list = SCM_CDR (list);
}
@ -137,9 +145,17 @@ gnc_scm_to_gslist_string(SCM list)
while (!scm_is_null (list))
{
const gchar * str = scm_to_locale_string (SCM_CAR(list));
if (str)
gslist = g_slist_prepend (gslist, g_strdup (str));
if (scm_is_string(SCM_CAR(list)))
{
char * str;
scm_dynwind_begin (0);
str = scm_to_locale_string (SCM_CAR(list));
if (str)
gslist = g_slist_prepend (gslist, g_strdup (str));
scm_dynwind_free (str);
scm_dynwind_end ();
}
list = SCM_CDR (list);
}