# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1542883479 -32400
# Node ID ce508c72660fd5e6b03c9fb343056773cf53040f
# Parent  4e440907fcbfcc6a4a779992f01b484d2daf4630
copy cbc flang in cfgexpand

diff -r 4e440907fcbf -r ce508c72660f CbC-examples/c-next.c
--- a/CbC-examples/c-next.c	Wed Nov 14 00:24:45 2018 +0900
+++ b/CbC-examples/c-next.c	Thu Nov 22 19:44:39 2018 +0900
@@ -56,7 +56,6 @@
 __code cbc_next(INTERP i){
     __code (*c)(INTERP);
     c = CODES[NEXT_OP(i)];
-    //c(i);
     goto c(i);
 }
 
diff -r 4e440907fcbf -r ce508c72660f gcc/cfgexpand.c
--- a/gcc/cfgexpand.c	Wed Nov 14 00:24:45 2018 +0900
+++ b/gcc/cfgexpand.c	Thu Nov 22 19:44:39 2018 +0900
@@ -2680,7 +2680,9 @@
   if (gimple_no_warning_p (stmt))
     TREE_NO_WARNING (exp) = 1;
 
+#ifndef noCbC
   CbC_IS_CbC_GOTO (exp) = gimple_call_cbc_goto_p(stmt);
+#endif
   CALL_EXPR_TAILCALL (exp) = gimple_call_tail_p (stmt);
   CALL_EXPR_MUST_TAIL_CALL (exp) = gimple_call_must_tail_p (stmt);
   CALL_EXPR_RETURN_SLOT_OPT (exp) = gimple_call_return_slot_opt_p (stmt);