Mercurial > hg > Papers > 2011 > nobu-prosym
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); */ |