/[guile]/guile/guile-core/libguile/procs.c
ViewVC logotype

Diff of /guile/guile-core/libguile/procs.c

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

revision 1.65 by dirk, Thu Jan 10 20:52:44 2002 UTC revision 1.66 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 78  scm_c_make_subr (const char *name, long Line 78  scm_c_make_subr (const char *name, long
78      {      {
79        long new_size = scm_subr_table_room * 3 / 2;        long new_size = scm_subr_table_room * 3 / 2;
80        void *new_table        void *new_table
81          = scm_must_realloc ((char *) scm_subr_table,          = scm_realloc ((char *) scm_subr_table,
82                              sizeof (scm_t_subr_entry) * scm_subr_table_room,                         sizeof (scm_t_subr_entry) * new_size);
                             sizeof (scm_t_subr_entry) * new_size,  
                             "scm_subr_table");  
83        scm_subr_table = new_table;        scm_subr_table = new_table;
84        scm_subr_table_room = new_size;        scm_subr_table_room = new_size;
85      }      }
# Line 154  scm_mark_subr_table () Line 152  scm_mark_subr_table ()
152  SCM  SCM
153  scm_makcclo (SCM proc, size_t len)  scm_makcclo (SCM proc, size_t len)
154  {  {
155    scm_t_bits *base = scm_must_malloc (len * sizeof (scm_t_bits), "compiled-closure");    scm_t_bits *base = scm_gc_malloc (len * sizeof (scm_t_bits),
156                                        "compiled closure");
157    unsigned long i;    unsigned long i;
158    SCM s;    SCM s;
159    
# Line 376  scm_init_subr_table () Line 375  scm_init_subr_table ()
375  {  {
376    scm_subr_table    scm_subr_table
377      = ((scm_t_subr_entry *)      = ((scm_t_subr_entry *)
378         scm_must_malloc (sizeof (scm_t_subr_entry) * scm_subr_table_room,         scm_malloc (sizeof (scm_t_subr_entry) * scm_subr_table_room));
                         "scm_subr_table"));  
379  }  }
380    
381  void  void

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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