Branch: Tag:

2000-10-20

2000-10-20 21:27:25 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed memory leak.

Rev: src/program.c:1.276

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.275 2000/10/04 05:12:13 hubbe Exp $"); + RCSID("$Id: program.c,v 1.276 2000/10/20 21:27:25 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
3454:    used_modules = used_modules_save;    Pike_compiler->num_used_modules = num_used_modules_save ;    error_handler = saved_handler; +  if (compat_handler) { +  free_object(compat_handler); +  }    compat_handler = saved_compat_handler;   #ifdef PIKE_DEBUG    if (resolve_cache) fatal("resolve_cache not freed at end of compilation.\n");
4455:       if(sp[-1].type == T_OBJECT)    { -  compat_handler=sp[-1].u.object; +  compat_handler = dmalloc_touch(struct object *, sp[-1].u.object);    sp--;       apply(compat_handler,"get_default_module",0);
4476:    free_svalue( (struct svalue *)used_modules.s.str );    ((struct svalue *)used_modules.s.str)[0]=sp[-1];    sp--; +  dmalloc_touch_svalue(sp);    if(Pike_compiler->module_index_cache)    {    free_mapping(Pike_compiler->module_index_cache);