pike.git / src / language.yacc

version» Context lines:

pike.git/src/language.yacc:105:   %left TOK_LSH TOK_RSH   %left '+' '-'   %left '*' '%' '/'   %right TOK_NOT '~'   %nonassoc TOK_INC TOK_DEC      %{   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.232 2001/08/03 05:22:41 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.233 2001/10/05 22:56:52 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif      #include "interpret.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "las.h"   #include "interpret.h"
pike.git/src/language.yacc:1819:    sprintf(buf,"__lambda_%ld_%ld",    (long)Pike_compiler->new_program->id,    (long)(Pike_compiler->local_class_counter++ & 0xffffffff)); /* OSF/1 cc bug. */    name=make_shared_string(buf);      #ifdef LAMBDA_DEBUG    fprintf(stderr, "%d: LAMBDA: %s 0x%08lx 0x%08lx\n",    Pike_compiler->compiler_pass, buf, (long)Pike_compiler->new_program->id, Pike_compiler->local_class_counter-1);   #endif /* LAMBDA_DEBUG */    +  if(Pike_compiler->compiler_pass == 2) +  Pike_compiler->compiler_frame->current_function_number=isidentifier(name);    f=dooptcode(name,    $6,    type,    ID_STATIC | ID_PRIVATE | ID_INLINE);       if(Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPED) {    $$ = mktrampolinenode(f);    } else {    $$ = mkidentifiernode(f);    }
pike.git/src/language.yacc:1894:   #endif /* LAMBDA_DEBUG */       name=make_shared_string(buf);       id=define_function(name,    type,    0,    IDENTIFIER_PIKE_FUNCTION,    0,    OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND); +  Pike_compiler->compiler_frame->current_function_number=id;    n=0;   #if 0    if(Pike_compiler->compiler_pass > 1 &&    (i=ID_FROM_INT(Pike_compiler->new_program, id)))    if(!(i->identifier_flags & IDENTIFIER_SCOPED))    n = mkidentifiernode(id);   #endif       low_add_local_name(Pike_compiler->compiler_frame->previous,    $1->u.sval.u.string, type, n);
pike.git/src/language.yacc:2016:       name=make_shared_string(buf);          id=define_function(name,    type,    0,    IDENTIFIER_PIKE_FUNCTION,    0,    OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND); +  Pike_compiler->compiler_frame->current_function_number=id;    n=0;   #if 0    if(Pike_compiler->compiler_pass > 1 &&    (i=ID_FROM_INT(Pike_compiler->new_program, id)))    if(!(i->identifier_flags & IDENTIFIER_SCOPED))    n = mkidentifiernode(id);   #endif       low_add_local_name(Pike_compiler->compiler_frame->previous,    $2->u.sval.u.string, type, n);