pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #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"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:290:    case F_CONSTANT:    free_svalue(&(n->u.sval));    break;       default:    if(car_is_node(n)) free_node(CAR(n));    if(cdr_is_node(n)) free_node(CDR(n));    }    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    CAR(n)=free_nodes;    free_nodes=n;   }         /* here starts routines to make nodes */   static node *mkemptynode(void)
pike.git/src/las.c:322:    free_nodes=tmp->nodes;    }    res=free_nodes;    free_nodes=CAR(res);    res->token=0;    res->line_number=lex.current_line;   #ifdef PIKE_DEBUG    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;    return res;   }      node *mknode(short token,node *a,node *b)   {    node *res;   #ifdef PIKE_DEBUG
pike.git/src/las.c:1029:    break;       case 0:    b=mknode(n->token, CAR(n), CDR(n));    }    if(n->type)    copy_shared_string(b->type, n->type);    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;    return b;   }         int is_const(node *n)   {    if(!n) return 1;