pike.git/ src/ language.yacc

2001-03-17

2001-03-17 06:25:58 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 71bde8c6391057b6a53384f5810c1a4083d98764 (29 lines) (+21/-8) ^{[ Show | Annotate ]}
  Branch: 7.9

implicit functions *without* semicolons..

Rev: src/language.yacc:1.233
Rev: src/las.c:1.246
Rev: src/las.h:1.48
Rev: src/testsuite.in:1.395

110:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.232 2001/03/05 21:32:52 grubba Exp $"); + RCSID("$Id: language.yacc,v 1.233 2001/03/17 06:25:58 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
316:   %type <n> sscanf   %type <n> statement   %type <n> statements + %type <n> statement_with_semicolon   %type <n> switch   %type <n> typeof   %type <n> unused
1610:    {    int tmp=Pike_compiler->compiler_pass;    $3=mknode(F_COMMA_EXPR,$3,0); +  optimize_node($3);    Pike_compiler->compiler_pass=tmp;    type=$3->u.node.a->type;    }
1664:    }    ;    + statement_with_semicolon: unused2 optional_block +  { +  if($2) +  { +  $$=recursive_add_call_arg($1,$2); +  }else{ +  $$=$1; +  } +  } + ;    - normal_label_statement: unused2 ';' + normal_label_statement: statement_with_semicolon    | import { $$=0; }    | cond -  | return expected_semicolon +  | return    | local_constant { $$=0; }    | block    | break expected_semicolon
2540:    }    ;    - return: TOK_RETURN + return: TOK_RETURN expected_semicolon    {    if(!TEST_COMPAT(0,6) &&    !match_types(Pike_compiler->compiler_frame->current_return_type,
2550:    }    $$=mknode(F_RETURN,mkintnode(0),0);    } -  | TOK_RETURN safe_comma_expr +  | TOK_RETURN safe_comma_expr expected_semicolon    {    $$=mknode(F_RETURN,$2,0);    }
2730:    * -Hubbe    */    - optional_block: /* EMPTY */ { $$=0; } + optional_block: ';' /* EMPTY */ { $$=0; }    | '{' push_compiler_frame0    {    debug_malloc_touch(Pike_compiler->compiler_frame->current_return_type);
2813:    | lambda    | class    | idents2 -  | expr4 '(' expr_list ')' optional_block +  | expr4 '(' expr_list ')'    { -  if($5) $3=mknode(F_ARG_LIST, $3, $5); +     $$=mkapplynode($1,$3);    }    | expr4 '(' error ')' { $$=mkapplynode($1, NULL); yyerrok; }
3198:    * tree properly -Hubbe    */    tmp=mknode(F_COMMA_EXPR, $3, 0); +  optimize_node(tmp);       t=(tmp && CAR(tmp) && CAR(tmp)->type ? CAR(tmp)->type : mixed_type_string);    if(TEST_COMPAT(7,0))