pike.git/ src/ language.yacc

1998-01-29

1998-01-29 17:43:22 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 22edc2519e71f1171ac29fba9f864e6d796689ef (18 lines) (+12/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

lambda() should now work as god intended again...

Rev: src/language.yacc:1.58
Rev: src/program.c:1.60

161:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.57 1998/01/29 06:02:29 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.58 1998/01/29 17:43:21 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
549:    int e;    if($10)    { +  int f;    for(e=0; e<$7; e++)    {    if(!compiler_frame->variable[e].name ||
558:    }    }    -  dooptcode($4->u.sval.u.string, $10, $<n>9->u.sval.u.string, $1); +  f=dooptcode($4->u.sval.u.string, $10, $<n>9->u.sval.u.string, $1);   #ifdef DEBUG    if(recoveries && sp-evaluator_stack < recoveries->sp)    fatal("Stack error (underflow)\n");
918:       type=pop_type();    -  sprintf(buf,"__lambda_%ld",local_class_counter++); +  sprintf(buf,"__lambda_%ld_%ld", +  (long)new_program->id, +  local_class_counter++);    name=make_shared_string(buf);       f=dooptcode(name,    $4,    type, -  ID_PRIVATE); +  ID_PRIVATE | ID_INLINE); +     $$=mkidentifiernode(f);    free_string(name);    free_string(type);
943:    {    struct pike_string *s;    char buffer[42]; -  sprintf(buffer,"__class_%ld",local_class_counter++); +  sprintf(buffer,"__class_%ld_%ld",(long)new_program->id, +  local_class_counter++);    s=make_shared_string(buffer);    $3=mkstrnode(s);    free_string(s); -  $1|=ID_PRIVATE; +  $1|=ID_PRIVATE | ID_INLINE;    }    if(compiler_pass==1)    {