pike.git/ src/ language.yacc

1998-01-29

1998-01-29 06:02:30 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 8267f4419b412c28e08df4689fc3bda5f9eec5da (23 lines) (+10/-13) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix in lambda() + new allocate()

Rev: bin/hilfe:1.13
Rev: src/builtin_functions.c:1.63
Rev: src/interpret.c:1.63
Rev: src/language.yacc:1.57
Rev: src/lex.c:1.42
Rev: src/testsuite.in:1.69

161:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.56 1998/01/27 20:02:14 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.57 1998/01/29 06:02:29 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
918:       type=pop_type();    -  if(new_program->flags | PROGRAM_PASS_1_DONE) -  { -  sprintf(buf,"__lambda_%ld", -  (long)new_program->num_identifier_references); +  sprintf(buf,"__lambda_%ld",local_class_counter++);    name=make_shared_string(buf);       f=dooptcode(name,    $4,    type,    ID_PRIVATE); -  } +  $$=mkidentifiernode(f);    free_string(name);    free_string(type);    comp_stackp=$<number>2;    pop_compiler_frame(); -  $$=mkidentifiernode(f); +     }    ;