mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* mallocs.c (scm_malloc_obj): use scm_gc_malloc in stead of

Browse source 
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.
This commit is contained in:
Han-Wen Nienhuys 2002-08-16 22:01:10 +00:00
parent f07c886abb
commit 67329a9eef
22 changed files with 107 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/script.c
View file

@ -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])))