Mercurial > hg > CbC > CbC_gcc
comparison gcc/c-parser.c @ 84:a5786e986ad2
modify gcc/c-parser.c
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 13 Nov 2011 16:21:32 +0900 |
parents | 895e19fe9c22 |
children | 32380d8cb035 |
comparison
equal
deleted
inserted
replaced
83:6fb1a677d0b5 | 84:a5786e986ad2 |
---|---|
6719 } | 6719 } |
6720 if (0) { | 6720 if (0) { |
6721 _cbc_exit0: | 6721 _cbc_exit0: |
6722 return retval; | 6722 return retval; |
6723 } | 6723 } |
6724 __return_func; | 6724 _cbc_internal_return; |
6725 }); | 6725 }); |
6726 */ | 6726 */ |
6727 tree value, stmt, label, tlab, decl; | 6727 tree value, stmt, label, tlab, decl; |
6728 c_parser_consume_token (parser); | 6728 c_parser_consume_token (parser); |
6729 | 6729 |
6738 add_stmt (build_stmt (location, DECL_EXPR, tlab)); | 6738 add_stmt (build_stmt (location, DECL_EXPR, tlab)); |
6739 | 6739 |
6740 /* declare retval. (int retval;) */ | 6740 /* declare retval. (int retval;) */ |
6741 tree decl_cond = | 6741 tree decl_cond = |
6742 build_decl (location, VAR_DECL, get_identifier ("retval"), | 6742 build_decl (location, VAR_DECL, get_identifier ("retval"), |
6743 TREE_TYPE (TREE_TYPE (current_function_decl))); | 6743 TREE_TYPE (TREE_TYPE (current_function_decl))); |
6744 TREE_STATIC (decl_cond) = 1; | 6744 TREE_STATIC (decl_cond) = 1; |
6745 DECL_ARTIFICIAL (decl_cond) = 1; | 6745 DECL_ARTIFICIAL (decl_cond) = 1; |
6746 pushdecl (decl_cond); | 6746 pushdecl (decl_cond); |
6747 | 6747 |
6748 /* define nested function. */ | 6748 /* define nested function. */ |