Mercurial > hg > CbC > CbC_gcc
comparison gcc/gimplify.c @ 1:caeb520cebed
patch for CbC
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 17:43:54 +0900 |
parents | a06113de4d67 |
children | 9de9dad105d4 |
comparison
equal
deleted
inserted
replaced
0:a06113de4d67 | 1:caeb520cebed |
---|---|
50 #include "optabs.h" | 50 #include "optabs.h" |
51 #include "pointer-set.h" | 51 #include "pointer-set.h" |
52 #include "splay-tree.h" | 52 #include "splay-tree.h" |
53 #include "vec.h" | 53 #include "vec.h" |
54 #include "gimple.h" | 54 #include "gimple.h" |
55 #ifndef noCbC | |
56 #include "cbc-tree.h" | |
57 #endif | |
58 | |
55 | 59 |
56 | 60 |
57 enum gimplify_omp_var_data | 61 enum gimplify_omp_var_data |
58 { | 62 { |
59 GOVD_SEEN = 1, | 63 GOVD_SEEN = 1, |
1327 gimple_set_no_warning (ret, TREE_NO_WARNING (stmt)); | 1331 gimple_set_no_warning (ret, TREE_NO_WARNING (stmt)); |
1328 gimplify_seq_add_stmt (pre_p, ret); | 1332 gimplify_seq_add_stmt (pre_p, ret); |
1329 return GS_ALL_DONE; | 1333 return GS_ALL_DONE; |
1330 } | 1334 } |
1331 | 1335 |
1332 if (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl)))) | 1336 if (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))) |
1337 #ifndef noCbC | |
1338 || ( ret_expr | |
1339 && TREE_CODE(ret_expr)==CALL_EXPR | |
1340 && CbC_IS_CbC_GOTO(ret_expr) | |
1341 //&& !CbC_IS_CODE_SEGMENT(TREE_TYPE(current_function_decl))) | |
1342 && !(current_function_decl&&CbC_IS_CODE_SEGMENT(TREE_TYPE(current_function_decl)))) | |
1343 //&& !(current_function_decl&&CbC_IS_CODE_SEGMENT(current_function_decl))) | |
1344 #endif | |
1345 ) | |
1333 result_decl = NULL_TREE; | 1346 result_decl = NULL_TREE; |
1334 else | 1347 else |
1335 { | 1348 { |
1336 result_decl = TREE_OPERAND (ret_expr, 0); | 1349 result_decl = TREE_OPERAND (ret_expr, 0); |
1337 | 1350 |