pike.git/ src/ language.yacc

1998-02-24

1998-02-24 23:01:36 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• d429a7549e9d7b74f73591cfddcc44863cae8f11 (15 lines) (+5/-10) ^{[ Show | Annotate ]}
  Branch: 7.9

lots of changes

Rev: src/ChangeLog:1.136
Rev: src/language.yacc:1.60
Rev: src/las.c:1.52
Rev: src/operators.c:1.26
Rev: src/peep.in:1.11
Rev: src/pike_types.c:1.33
Rev: src/program.c:1.63
Rev: src/program.h:1.32
Rev: src/signal_handler.c:1.32
Rev: src/testsuite.in:1.74
Rev: src/version.c:1.28

162:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.59 1998/02/01 04:01:33 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.60 1998/02/24 23:01:28 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
1337:    }    | F_IDENTIFIER F_COLON_COLON F_IDENTIFIER    { -  int f; -  struct reference *idp; -  -  f=reference_inherited_identifier($1->u.sval.u.string, +  $$=reference_inherited_identifier($1->u.sval.u.string,    $3->u.sval.u.string); -  idp=new_program->identifier_references+f; -  if (f<0) +  if (!$$)    {    my_yyerror("Undefined identifier %s::%s",    $1->u.sval.u.string->str,    $3->u.sval.u.string->str);    $$=mkintnode(0); -  } else { -  $$=mkidentifiernode(f); +     }       free_node($1);
1364:    for(e=1;e<(int)new_program->num_inherits;e++)    {    if(new_program->inherits[e].inherit_level!=1) continue; -  i=low_reference_inherited_identifier(e,$2->u.sval.u.string); +  i=low_reference_inherited_identifier(0,e,$2->u.sval.u.string);    if(i==-1) continue;    if($$)    {