comparison Paper/source/rid_goto.c~ @ 47:e07c7952f237

add sources
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Wed, 23 Nov 2011 02:27:44 +0900
parents
children
comparison
equal deleted inserted replaced
46:db63cc25d890 47:e07c7952f237
1 if (c_parser_next_token_is (parser, CPP_NAME))
2 {
3 tree id = c_parser_peek_token (parser)->value;
4 location_t loc = c_parser_peek_token (parser)->location;
5 /** build_external_ref (id,RID_CbC_CODE , loc); **/
6 build_external_ref (loc, id, RID_CbC_CODE, &expr.original_type);
7 }
8 expr = c_parser_expr_no_commas (parser, NULL);
9 if (TREE_CODE(expr.value) == CALL_EXPR )
10 {
11 location_t loc = c_parser_peek_token (parser)->location;
12 cbc_replace_arguments (loc, expr.value);
13
14 => TREE_TYPE(expr.value) = void_type_node;
15 /*tree env = NULL_TREE;**/
16 CbC_IS_CbC_GOTO (expr.value) = 1;
17 CALL_EXPR_TAILCALL (expr.value) = 1;
18 add_stmt(expr.value);
19 stmt = c_finish_return(loc, NULL_TREE, NULL_TREE); /* stmt = c_finish_return (0); */