mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +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

4
libguile/random.c
View file

@ -176,7 +176,7 @@ scm_i_init_rstate (scm_t_i_rstate *state, char *seed, int n)
scm_t_i_rstate *
scm_i_copy_rstate (scm_t_i_rstate *state)
{
scm_t_rstate *new_state = malloc (scm_the_rng.rstate_size);
scm_t_rstate *new_state = scm_malloc (scm_the_rng.rstate_size);
if (new_state == 0)
scm_memory_error ("rstate");
return memcpy (new_state, state, scm_the_rng.rstate_size);
@ -190,7 +190,7 @@ scm_i_copy_rstate (scm_t_i_rstate *state)
scm_t_rstate *
scm_c_make_rstate (char *seed, int n)
{
scm_t_rstate *state = malloc (scm_the_rng.rstate_size);
scm_t_rstate *state = scm_malloc (scm_the_rng.rstate_size);
if (state == 0)
scm_memory_error ("rstate");
state->reserved0 = 0;