pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: las.c,v 1.367 2005/07/12 18:41:47 grubba Exp $ + || $Id: las.c,v 1.368 2005/07/13 09:14:40 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"
pike.git/src/las.c:1775:    }   }      node *index_node(node *n, char *node_name, struct pike_string *id)   {    node *ret;    JMP_BUF tmp;       check_tree(n,0);    -  if (!is_const(n)) { -  if (n) add_ref(n); -  return mknode(F_INDEX, n, mkstrnode(id)); +  if (!is_const(n) && !TEST_COMPAT(7, 6)) { +  /* Index dynamically. */ +  return mknode(F_INDEX, copy_node(n), mkstrnode(id));    }       if(SETJMP(tmp))    {    if (node_name) {    handle_compile_exception ("Couldn't index module '%s'.", node_name);    } else {    handle_compile_exception ("Couldn't index module.");    }    }else{