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.73 1999/01/31 09:01:51 hubbe Exp $"); + RCSID("$Id: las.c,v 1.74 1999/02/01 06:13:15 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:793:    check_tree(a,0);    check_tree(b,0);       if(a == b) return 1;    if(!a || !b) return 0;    if(a->token != b->token) return 0;       switch(a->token)    {    case F_LOCAL: -  return a->u.integer.a == b->u.integer.b; +  return a->u.integer.a == b->u.integer.a && +  a->u.integer.b == b->u.integer.b;       case F_IDENTIFIER:    case F_TRAMPOLINE: /* FIXME, the context has to be the same! */    return a->u.number == b->u.number;       case F_CAST:    return a->type == b->type && node_is_eq(CAR(a), CAR(b));       case F_CONSTANT:    return is_equal(&(a->u.sval), &(b->u.sval));