Branch: Tag:

1998-03-03

1998-03-03 11:24:48 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

DEBUG_MALLOC added

Rev: src/acconfig.h:1.12
Rev: src/array.c:1.23
Rev: src/array.h:1.7
Rev: src/block_alloc.h:1.1
Rev: src/builtin_functions.c:1.61
Rev: src/dmalloc.h:1.1
Rev: src/dynamic_buffer.c:1.6
Rev: src/dynamic_buffer.h:1.4
Rev: src/dynamic_load.c:1.23
Rev: src/global.h:1.12
Rev: src/interpret.h:1.16
Rev: src/language.yacc:1.51
Rev: src/las.c:1.40
Rev: src/las.h:1.9
Rev: src/lex.c:1.35
Rev: src/main.c:1.28
Rev: src/mapping.c:1.26
Rev: src/mapping.h:1.5
Rev: src/module.c:1.7
Rev: src/modules/Image/colortable.c:1.29
Rev: src/modules/Image/encodings/gif.c:1.21
Rev: src/modules/Image/encodings/png.c:1.2
Rev: src/modules/Image/font.c:1.22
Rev: src/modules/Image/image.c:1.71
Rev: src/modules/files/efuns.c:1.41
Rev: src/modules/files/file.c:1.62
Rev: src/modules/files/socket.c:1.19
Rev: src/modules/spider/dumudp.c:1.29
Rev: src/modules/spider/spider.c:1.51
Rev: src/modules/system/system.c:1.34
Rev: src/multiset.h:1.4
Rev: src/object.c:1.30
Rev: src/object.h:1.12
Rev: src/peep.c:1.16
Rev: src/pike_memory.c:1.5
Rev: src/pike_memory.h:1.2
Rev: src/pike_types.c:1.27
Rev: src/pike_types.h:1.6
Rev: src/program.c:1.47
Rev: src/program.h:1.23
Rev: src/stralloc.c:1.19
Rev: src/stralloc.h:1.10
Rev: src/svalue.h:1.10

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: las.c,v 1.39 1997/10/05 03:39:25 grubba Exp $"); + RCSID("$Id: las.c,v 1.40 1998/03/03 11:24:32 hubbe Exp $");      #include "language.h"   #include "interpret.h"
143:    struct node_chunk *tmp2;    int e=0;    -  + #ifndef DEBUG    if(cumulative_parse_error)    { -  + #endif       for(tmp2=node_chunks;tmp2;tmp2=tmp2->next) e+=NODES;    for(tmp=free_nodes;tmp;tmp=CAR(tmp)) e--;
166: Inside #if defined(DEBUG)
  #ifdef DEBUG    if(!cumulative_parse_error)    { -  fprintf(stderr,"Free node at %p.\n",tmp); +  fprintf(stderr,"Free node at %p, (%d) (token=%d).\n",tmp, tmp->line_number, tmp->token); +  if(tmp->token==F_CONSTANT) +  print_tree(tmp);    }    else   #endif
175:    /* Make sure we don't free any nodes twice */    if(car_is_node(tmp)) CAR(tmp)=0;    if(cdr_is_node(tmp)) CDR(tmp)=0; +  debug_malloc_touch(tmp->type);    free_node(tmp);    }    }
185:    fatal("Failed to free %d nodes when compiling!\n",e2);   #endif    } + #ifndef DEBUG    } -  + #endif    while(node_chunks)    {    tmp2=node_chunks;
488:    }   }    - node *index_node(node *n, struct pike_string * id) + node *debug_index_node(node *n, struct pike_string * id)   {    node *ret;    JMP_BUF tmp;