# HG changeset patch
# User Nobuyasu Oshiro  <dimolto@cr.ie.u-ryukyu.ac.jp>
# Date 1321168892 -32400
# Node ID a5786e986ad208225d8c287bdd450d7b12c671bc
# Parent  6fb1a677d0b511cd86936d075fac9a060e301763
modify gcc/c-parser.c

diff -r 6fb1a677d0b5 -r a5786e986ad2 CbC-examples/arg.c
--- a/CbC-examples/arg.c	Fri Nov 11 04:29:33 2011 +0900
+++ b/CbC-examples/arg.c	Sun Nov 13 16:21:32 2011 +0900
@@ -13,13 +13,13 @@
 void *exit_env;
 __code (*exit___code)();
 
-__code carg1(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(),void *env)
+__code carg1(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(int, void*),void *env)
 {
     printf("#0017:arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1==exit___code,env==exit_env);
     goto carg2(arg1,arg2,arg3,arg4,arg0,exit1,env);
 }
 
-__code carg2(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(),void *env)
+__code carg2(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(int, void*),void *env)
 {
     struct arg args0;
     printf("#0024:arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1==exit___code,env==exit_env );
@@ -31,7 +31,7 @@
     goto cargs(args0,exit1,env);
 }
 
-__code cargs(struct arg args0,__code exit1(),void *env)
+__code cargs(struct arg args0,__code exit1(int, void*),void *env)
 {
     printf("#0035:args: %d %d %d %d %d : %x %x\n",
 	args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,
diff -r 6fb1a677d0b5 -r a5786e986ad2 gcc/c-parser.c
--- a/gcc/c-parser.c	Fri Nov 11 04:29:33 2011 +0900
+++ b/gcc/c-parser.c	Sun Nov 13 16:21:32 2011 +0900
@@ -6721,7 +6721,7 @@
               _cbc_exit0:
                return retval;
             }
-            __return_func;
+            _cbc_internal_return;
         });
          */
         tree value, stmt, label, tlab, decl;
@@ -6740,7 +6740,7 @@
         /* declare retval.  (int retval;) */
         tree decl_cond =
           build_decl (location, VAR_DECL, get_identifier ("retval"),
-          TREE_TYPE (TREE_TYPE (current_function_decl)));
+		      TREE_TYPE (TREE_TYPE (current_function_decl)));
         TREE_STATIC (decl_cond) = 1;
         DECL_ARTIFICIAL (decl_cond) = 1;
         pushdecl (decl_cond);