pike.git/ src/ language.yacc

2000-05-09

2000-05-09 01:17:59 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 8322b6675c4ea39d5e2611d3b2d78a636593c9f5 (17 lines) (+11/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

fix for fp->expendible

Rev: src/interpret.c:1.152
Rev: src/language.yacc:1.184
Rev: src/las.c:1.178
Rev: src/las.h:1.37
Rev: src/peep.in:1.37
Rev: src/program.h:1.88

195:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.183 2000/05/01 03:33:46 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.184 2000/05/09 01:17:59 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
658:      push_compiler_frame0: /* empty */    { -  push_compiler_frame(0); +  push_compiler_frame(SCOPE_LOCAL);       if(!compiler_frame->previous ||    !compiler_frame->previous->current_type)
1540:      push_compiler_frame1: /* empty */    { -  push_compiler_frame(1); +  push_compiler_frame(SCOPE_LOCAL);    }    ;   
1601:    type,    ID_STATIC | ID_PRIVATE | ID_INLINE);    -  if(compiler_frame->lexical_scope == 2) { +  if(compiler_frame->lexical_scope & SCOPE_SCOPED) {    $$ = mktrampolinenode(f);    } else {    $$ = mkidentifiernode(f);
2896:    return copy_node(f->variable[e].def);    while(q!=f)    { -  q->lexical_scope=2; +  q->lexical_scope|=SCOPE_SCOPED;    q=q->previous;    } -  +  +  if(depth) +  q->lexical_scope|=SCOPE_SCOPE_USED; +     return mklocalnode(e,depth);    }    } -  if(!f->lexical_scope) return 0; +  if(!(f->lexical_scope & SCOPE_LOCAL)) return 0;    depth++;    f=f->previous;    }