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.36 1997/08/30 18:35:37 grubba Exp $"); + RCSID("$Id: las.c,v 1.37 1997/09/09 03:36:11 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:405:   }      node *mkidentifiernode(int i)   {    node *res = mkemptynode();    res->token = F_IDENTIFIER;    setup_fake_program();    copy_shared_string(res->type, ID_FROM_INT(&fake_program, i)->type);       /* FIXME */ -  if(IDENTIFIER_IS_CONSTANT(ID_FROM_INT(&fake_program, i)->flags)) +  if(IDENTIFIER_IS_CONSTANT(ID_FROM_INT(&fake_program, i)->identifier_flags))    {    res->node_info = OPT_EXTERNAL_DEPEND;    }else{    res->node_info = OPT_NOT_CONST;    }    res->tree_info=res->node_info;      #ifdef __CHECKER__    CDR(res)=0;   #endif
pike.git/src/las.c:458:    switch(n->token)    {    case F_CONSTANT:    push_svalue(& n->u.sval);    break;       case F_IDENTIFIER:    setup_fake_program();    i=ID_FROM_INT(& fake_program, n->u.number);    -  if(IDENTIFIER_IS_CONSTANT(i->flags)) +  if(IDENTIFIER_IS_CONSTANT(i->identifier_flags))    {    push_svalue(PROG_FROM_INT(&fake_program, n->u.number)->constants +    i->func.offset);    }else{    yyerror("Identifier is not a constant");    push_int(0);    }    break;       case F_LOCAL:
pike.git/src/las.c:1559:    CAR(n)->u.sval.type==T_STRING &&    find_identifier("`->",CAR(n)->u.sval.u.object->prog)==-1)    {    int i;    i=find_shared_string_identifier(CDR(n)->u.sval.u.string,    CAR(n)->u.sval.u.object->prog);    if(i)    {    struct identifier *id;    id=ID_FROM_INT(CAR(n)->u.sval.u.object->prog, i); -  if(IDENTIFIER_IS_VARIABLE(id->flags)) break; +  if(IDENTIFIER_IS_VARIABLE(id->identifier_flags)) break;    }    ref_push_object(CAR(n)->u.sval.u.object);    ref_push_string(CDR(n)->u.sval.u.string);    f_index(2);    tmp1=mksvaluenode(sp-1);    pop_stack();    goto use_tmp1;    }    break;