/[guile]/guile/guile-core/libguile/gc-malloc.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc-malloc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by mdj, Tue Dec 10 20:09:45 2002 UTC revision 1.13 by mdj, Tue Dec 10 20:25:26 2002 UTC
# Line 102  static int scm_i_minyield_malloc; Line 102  static int scm_i_minyield_malloc;
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",
# Line 116  scm_gc_init_malloc (void) Line 122  scm_gc_init_malloc (void)
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    
# Line 132  scm_realloc (void *mem, size_t size) Line 136  scm_realloc (void *mem, size_t size)
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    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26