102 |
static scm_t_mutex malloc_mutex; |
static scm_t_mutex malloc_mutex; |
103 |
|
|
104 |
void |
void |
105 |
|
scm_gc_malloc_prehistory () |
106 |
|
{ |
107 |
|
scm_i_plugin_mutex_init (&malloc_mutex, 0); |
108 |
|
} |
109 |
|
|
110 |
|
void |
111 |
scm_gc_init_malloc (void) |
scm_gc_init_malloc (void) |
112 |
{ |
{ |
113 |
scm_mtrigger = scm_getenv_int ("GUILE_INIT_MALLOC_LIMIT", |
scm_mtrigger = scm_getenv_int ("GUILE_INIT_MALLOC_LIMIT", |
122 |
|
|
123 |
if (scm_mtrigger < 0) |
if (scm_mtrigger < 0) |
124 |
scm_mtrigger = SCM_DEFAULT_INIT_MALLOC_LIMIT; |
scm_mtrigger = SCM_DEFAULT_INIT_MALLOC_LIMIT; |
|
|
|
|
scm_i_plugin_mutex_init (&malloc_mutex, 0); |
|
125 |
} |
} |
126 |
|
|
127 |
|
|
136 |
|
|
137 |
scm_i_plugin_mutex_lock (&malloc_mutex); |
scm_i_plugin_mutex_lock (&malloc_mutex); |
138 |
SCM_SYSCALL (ptr = realloc (mem, size)); |
SCM_SYSCALL (ptr = realloc (mem, size)); |
139 |
scm_i_plugin_mutex_lock (&malloc_mutex); |
scm_i_plugin_mutex_unlock (&malloc_mutex); |
140 |
if (ptr) |
if (ptr) |
141 |
return ptr; |
return ptr; |
142 |
|
|