mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

(scm_array_handle_release): New, changed all uses of

Browse source 
scm_t_array_handle to properly call it.
(scm_vector_get_handle, scm_generalized_vector_get_handle):
Renamed former to latter, changed all uses.
This commit is contained in:
Marius Vollmer 2005-01-06 18:56:34 +00:00
parent fea99690f2
commit c8857a4db4
7 changed files with 49 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/gh_data.c
View file

@ -258,9 +258,11 @@ gh_scm2chars (SCM obj, char *m)
scm_list_1 (obj));
if (m == 0)
m = (char *) malloc (len);
if (m != NULL)
memcpy (m, elts, len);
scm_array_handle_release (&handle);
if (m == NULL)
return NULL;
memcpy (m, elts, len);
break;
}
else
@ -296,9 +298,11 @@ scm2whatever (SCM obj, void *m, size_t size)
if (m == 0)
m = malloc (len * sizeof (size));
if (m == NULL)
return NULL;
memcpy (m, elts, len * size);
if (m != NULL)
memcpy (m, elts, len * size);
scm_array_handle_release (&handle);
return m;
}