Branch: Tag:

1999-09-18

1999-09-18 09:21:30 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

name tracking for constants underway (not yet finished)

Rev: src/docode.c:1.51
Rev: src/interpreter.h:1.13
Rev: src/language.yacc:1.123
Rev: src/las.c:1.88
Rev: src/lex.c:1.66
Rev: src/object.c:1.82
Rev: src/object.h:1.29
Rev: src/pike_types.h:1.21
Rev: src/program.c:1.151
Rev: src/program.h:1.59
Rev: src/program_areas.h:1.6
Rev: src/testsuite.in:1.197

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.87 1999/09/16 23:56:10 hubbe Exp $"); + RCSID("$Id: las.c,v 1.88 1999/09/18 09:21:21 hubbe Exp $");      #include "language.h"   #include "interpret.h"
297:    }    n->token=USHRT_MAX;    if(n->type) free_string(n->type); +  if(n->name) free_string(n->name);   #ifdef PIKE_DEBUG    if(n->current_file) free_string(n->current_file);   #endif
329:    copy_shared_string(res->current_file, lex.current_file);   #endif    res->type=0; +  res->name=0;    res->node_info=0;    res->tree_info=0;    res->parent=0;
1036:    else    b->type=0;    } +  if(n->name) add_ref(b->name=n->name);    b->line_number = n->line_number;    b->node_info = n->node_info;    b->tree_info = n->tree_info;