pike.git/ src/ language.yacc

2000-08-30

2000-08-30 21:58:17 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 1ef557d61db2a2cd67b3510a4c394593e786771f (24 lines) (+18/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Begun support for having OPT_??? flags on non-efuns.

Rev: src/language.yacc:1.209
Rev: src/las.c:1.199
Rev: src/las.h:1.42
Rev: src/program.c:1.268
Rev: src/program.h:1.109

110:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.208 2000/08/18 22:05:40 grubba Exp $"); + RCSID("$Id: language.yacc,v 1.209 2000/08/30 21:58:15 grubba Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
711:    check_node_hash($<n>$)->u.sval.u.string,    $1 & (~ID_EXTERN),    IDENTIFIER_PIKE_FUNCTION, -  0); +  0, +  OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);       if ($1 & ID_VARIANT) {    fprintf(stderr, "Function number: %d\n",
728:    node *check_args = NULL;    int save_line = lex.current_line;    int num_required_args = 0; +  struct identifier *i;   #ifdef PIKE_DEBUG    struct pike_string *save_file = lex.current_file;    lex.current_file = $8->current_file;
785:    }       if ($1 & ID_VARIANT) { -  int i = isidentifier($4->u.sval.u.string); +     struct pike_string *bad_arg_str;    MAKE_CONSTANT_SHARED_STRING(bad_arg_str,    "Bad number of arguments!\n");
820:    check_node_hash($<n>9)->u.sval.u.string,    $1);    +  i = ID_FROM_INT(Pike_compiler->new_program, f); +  i->opt_flags = Pike_compiler->compiler_frame->opt_flags; +     if ($1 & ID_VARIANT) {    fprintf(stderr, "Function number: %d\n", f);    }
1729:    type,    0,    IDENTIFIER_PIKE_FUNCTION, -  0); +  0, +  OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);    n=0;   #if 0    if(Pike_compiler->compiler_pass > 1 &&
1757:    i->type,    ID_STATIC | ID_PRIVATE | ID_INLINE);    +  i->opt_flags = Pike_compiler->compiler_frame->opt_flags; +     pop_compiler_frame();    free_node($1);   
1848:    type,    0,    IDENTIFIER_PIKE_FUNCTION, -  0); +  0, +  OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);    n=0;   #if 0    if(Pike_compiler->compiler_pass > 1 &&
1877:    i->type,    ID_STATIC | ID_PRIVATE | ID_INLINE);    +  i->opt_flags = Pike_compiler->compiler_frame->opt_flags; +     pop_compiler_frame();    free_node($2);   
1983:       Pike_compiler->compiler_frame->current_function_number=    define_function(create_string, type, -  ID_STATIC, IDENTIFIER_PIKE_FUNCTION, 0); +  ID_STATIC, IDENTIFIER_PIKE_FUNCTION, 0, +  OPT_SIDE_EFFECT);       /* Third: Generate the initialization code.    *