summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-02-11 18:06:50 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-02-11 18:06:50 +0000
commit4c9419ac31f8364db51ccf25f7f9d5d31dd412e7 (patch)
treeecce968212c4bda96b3531e61b9724ea93777cc7 /libguile/gh_data.c
parentd013f095c14783c193385cb67d3778a1240cd19b (diff)
downloadguile-4c9419ac31f8364db51ccf25f7f9d5d31dd412e7.tar.gz
* gc.h, gc.c (scm_gc_sweep): Issue deprecation warning when
non-zero is returned from a port or smob free function. (scm_malloc, scm_realloc, scm_strndup, scm_strdup, scm_gc_register_collectable_memory, scm_gc_unregister_collectable_memory, scm_gc_malloc, scm_gc_realloc, scm_gc_free, scm_gc_strndup, scm_gc_strdup): New. * backtrace.c, continuations.c, convert.i.c, coop-threads.c, debug-malloc.c, dynl.c, environments.c, environments.h, extensions.c, filesys.c, fports.c, gc.c, gc.h, gh_data.c, goops.c, guardians.c, hooks.c, init.c, keywords.c, load.c, numbers.c, ports.c, posix.c, procs.c, rdelim.c, regex-posix.c, root.c, smob.c, stime.c, strings.c, struct.c, struct.h, symbols.c, unif.c, vectors.c, weaks.c: Use scm_gc_malloc/scm_malloc and scm_gc_free/free instead of scm_must_malloc and scm_must_free, as appropriate. Return zero from smob and port free functions. * debug-malloc.c (scm_malloc_reregister): Handle "old == NULL". * fports.c (scm_setvbuf): Reset read buffer to saved values when it is pointing to the putback buffer.
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r--libguile/gh_data.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 738eeb687..ceef34db0 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -155,7 +155,7 @@ makvect (char *m, size_t len, int type)
SCM
gh_chars2byvect (const char *d, long n)
{
- char *m = scm_must_malloc (n * sizeof (char), "vector");
+ char *m = scm_gc_malloc (n * sizeof (char), "vector");
memcpy (m, d, n * sizeof (char));
return makvect (m, n, scm_tc7_byvect);
}
@@ -163,7 +163,7 @@ gh_chars2byvect (const char *d, long n)
SCM
gh_shorts2svect (const short *d, long n)
{
- char *m = scm_must_malloc (n * sizeof (short), "vector");
+ char *m = scm_gc_malloc (n * sizeof (short), "vector");
memcpy (m, d, n * sizeof (short));
return makvect (m, n, scm_tc7_svect);
}
@@ -171,7 +171,7 @@ gh_shorts2svect (const short *d, long n)
SCM
gh_longs2ivect (const long *d, long n)
{
- char *m = scm_must_malloc (n * sizeof (long), "vector");
+ char *m = scm_gc_malloc (n * sizeof (long), "vector");
memcpy (m, d, n * sizeof (long));
return makvect (m, n, scm_tc7_ivect);
}
@@ -179,7 +179,7 @@ gh_longs2ivect (const long *d, long n)
SCM
gh_ulongs2uvect (const unsigned long *d, long n)
{
- char *m = scm_must_malloc (n * sizeof (unsigned long), "vector");
+ char *m = scm_gc_malloc (n * sizeof (unsigned long), "vector");
memcpy (m, d, n * sizeof (unsigned long));
return makvect (m, n, scm_tc7_uvect);
}
@@ -187,7 +187,7 @@ gh_ulongs2uvect (const unsigned long *d, long n)
SCM
gh_floats2fvect (const float *d, long n)
{
- char *m = scm_must_malloc (n * sizeof (float), "vector");
+ char *m = scm_gc_malloc (n * sizeof (float), "vector");
memcpy (m, d, n * sizeof (float));
return makvect (m, n, scm_tc7_fvect);
}
@@ -195,7 +195,7 @@ gh_floats2fvect (const float *d, long n)
SCM
gh_doubles2dvect (const double *d, long n)
{
- char *m = scm_must_malloc (n * sizeof (double), "vector");
+ char *m = scm_gc_malloc (n * sizeof (double), "vector");
memcpy (m, d, n * sizeof (double));
return makvect (m, n, scm_tc7_dvect);
}