pike.git/ src/ program.c

Branch: Tag:

1998-01-26

1998-01-26 20:01:58 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

many minor memory leaks fixed

Rev: NT/.cvsignore:1.3
Rev: src/array.c:1.23
Rev: src/dmalloc.h:1.2
Rev: src/dynamic_buffer.c:1.7
Rev: src/dynamic_buffer.h:1.5
Rev: src/dynamic_load.c:1.23
Rev: src/error.h:1.10
Rev: src/interpret.c:1.62
Rev: src/interpret.h:1.17
Rev: src/language.yacc:1.55
Rev: src/las.c:1.45
Rev: src/las.h:1.12
Rev: src/lex.c:1.41
Rev: src/main.c:1.37
Rev: src/main.h:1.5
Rev: src/modules/Gmp/mpz_glue.c:1.25
Rev: src/modules/Image/font.c:1.27
Rev: src/object.c:1.34
Rev: src/object.h:1.14
Rev: src/operators.c:1.23
Rev: src/pike_memory.c:1.5
Rev: src/pike_types.c:1.30
Rev: src/pike_types.h:1.8
Rev: src/program.c:1.55
Rev: src/program.h:1.28
Rev: src/stralloc.c:1.25
Rev: src/stralloc.h:1.13
Rev: src/svalue.h:1.10
Rev: src/threads.c:1.54

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.54 1998/01/25 08:25:14 hubbe Exp $"); + RCSID("$Id: program.c,v 1.55 1998/01/26 19:59:59 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
478:       for(e=1; e<p->num_inherits; e++)    { +  if(p->inherits[e].name) +  free_string(p->inherits[e].name); +  if(e) +  {    free_program(p->inherits[e].prog);    if(p->inherits[e].parent)    free_object(p->inherits[e].parent);    } -  +  }       if(p->prev)    p->prev->next=p->next;
777:   /*    * Finish this program, returning the newly built program    */ - struct program *end_program(void) + struct program *debug_end_program(void)   {    return end_first_pass(1);   }
937:    {    if(e==0)    { -  inherit.name=name; -  reference_shared_string(name); +  copy_shared_string(inherit.name,name);    }    else if(inherit.name)    {
1397:   }       - int end_class(char *name, INT32 flags) + int debug_end_class(char *name, INT32 flags)   {    INT32 ret;    struct svalue tmp;