Mercurial > hg > CbC > CbC_gcc
comparison gcc/c-parser.c @ 21:959d4c8c8abc
add conv.c conv1.c
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 29 Sep 2009 20:15:16 +0900 |
parents | 9de9dad105d4 |
children | 0eb6cac880f0 |
comparison
equal
deleted
inserted
replaced
20:9de9dad105d4 | 21:959d4c8c8abc |
---|---|
3793 { | 3793 { |
3794 TREE_TYPE(expr.value) = void_type_node; | 3794 TREE_TYPE(expr.value) = void_type_node; |
3795 tree env = NULL_TREE; | 3795 tree env = NULL_TREE; |
3796 // if (c_parser_next_token_is (parser, CPP_COMMA)) | 3796 // if (c_parser_next_token_is (parser, CPP_COMMA)) |
3797 // env = c_parser_cbc_make_env(parser); | 3797 // env = c_parser_cbc_make_env(parser); |
3798 if (CbC_IS_CODE_SEGMENT(TREE_TYPE(current_function_decl))) | 3798 //if (CbC_IS_CODE_SEGMENT(TREE_TYPE(current_function_decl))) |
3799 { | 3799 { |
3800 CbC_IS_CbC_GOTO (expr.value) = 1; | 3800 CbC_IS_CbC_GOTO (expr.value) = 1; |
3801 CALL_EXPR_TAILCALL (expr.value) = 1; | 3801 CALL_EXPR_TAILCALL (expr.value) = 1; |
3802 } | 3802 } |
3803 add_stmt(expr.value); | 3803 add_stmt(expr.value); |
3804 CbC_HAVE_CbC_GOTO (current_function_decl) = 1; | 3804 //CbC_HAVE_CbC_GOTO (current_function_decl) = 1; |
3805 // should be match with function type? | 3805 // should be match with function type? |
3806 stmt = c_finish_return (0); | 3806 stmt = c_finish_return (0); |
3807 } | 3807 } |
3808 else | 3808 else |
3809 c_parser_error (parser, "expected code segment jump or %<*%>"); | 3809 c_parser_error (parser, "expected code segment jump or %<*%>"); |