diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-16 22:01:10 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-16 22:01:10 +0000 |
commit | 67329a9eefdcfae7ccee5ba2afc783e30dacdae2 (patch) | |
tree | 62f268f12a88c3f969ad26f6ab0a9929eff71706 /libguile/script.c | |
parent | f07c886abbde77c62528981137406da88cf2f055 (diff) | |
download | guile-67329a9eefdcfae7ccee5ba2afc783e30dacdae2.tar.gz |
* mallocs.c (scm_malloc_obj): use scm_gc_malloc in stead of
malloc.
* gc-segment.c (scm_i_get_new_heap_segment): remove cluster cruft:
only use SCM_MIN_HEAP_SEG_SIZE.
* ports.c (scm_add_to_port_table): add backwards compatibility
function
* ports.h: use scm_i_ prefix for port table and port table size.
Diffstat (limited to 'libguile/script.c')
-rw-r--r-- | libguile/script.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/script.c b/libguile/script.c index 58d48fab4..6e328523a 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -83,7 +83,7 @@ scm_cat_path (char *str1, const char *str2, long n) strncat (str1 + len, str2, n); return str1; } - str1 = (char *) malloc ((size_t) (n + 1)); + str1 = (char *) scm_malloc ((size_t) (n + 1)); if (!str1) return 0L; str1[0] = 0; @@ -236,7 +236,7 @@ script_read_arg (FILE *f) #define FUNC_NAME "script_read_arg" { size_t size = 7; - char *buf = malloc (size + 1); + char *buf = scm_malloc (size + 1); size_t len = 0; if (! buf) @@ -315,7 +315,7 @@ scm_get_meta_args (int argc, char **argv) char *narg, **nargv; if (!(argc > 2 && script_meta_arg_P (argv[1]))) return 0L; - if (!(nargv = (char **) malloc ((1 + nargc) * sizeof (char *)))) + if (!(nargv = (char **) scm_malloc ((1 + nargc) * sizeof (char *)))) return 0L; nargv[0] = argv[0]; while (((argi + 1) < argc) && (script_meta_arg_P (argv[argi]))) |