changeset 6:983001f85155

destory goto with environment...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 20 Aug 2009 13:38:58 +0900
parents a4c410aa4714
children 7ff9aed93de8
files gcc/c-parser.c gcc/cbc-goto.h
diffstat 2 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/gcc/c-parser.c	Thu Jul 30 19:22:01 2009 +0900
+++ b/gcc/c-parser.c	Thu Aug 20 13:38:58 2009 +0900
@@ -3770,7 +3770,7 @@
 			//ebp = chainon (ebp, argsp);
 			tmp = build_tree_list (ebp, argsp);
 
-		      TREE_OPERAND (expr.value, 2) = tmp;
+		      // TREE_OPERAND (expr.value, 2) = tmp;
 
 
 		      /*
@@ -3785,8 +3785,8 @@
 
 
 		    }
-		  else
-		    TREE_OPERAND (expr.value, 2) = NULL_TREE;
+		  // else
+		  //  TREE_OPERAND (expr.value, 2) = NULL_TREE;
 		  CbC_IS_CbC_GOTO (expr.value) = 1;
 		  CALL_EXPR_TAILCALL (expr.value) = 1;
 		  add_stmt(expr.value);
@@ -5752,7 +5752,7 @@
 	      //tree hoge = build_int_cst(NULL_TREE,55);
 		if (!cbc_env)
 		  {
-		      tree field,fields,env_struct;
+		      tree field,fields=NULL_TREE,env_struct;
 		    /* build type_node of environment structure  */
 		    env_struct = start_struct (RECORD_TYPE, NULL_TREE);
 		    field = build_decl (FIELD_DECL, get_identifier("sp"), ptr_type_node);
--- a/gcc/cbc-goto.h	Thu Jul 30 19:22:01 2009 +0900
+++ b/gcc/cbc-goto.h	Thu Aug 20 13:38:58 2009 +0900
@@ -81,8 +81,8 @@
   rtx env_rtx;
   tree env_tree;
 
-  env_tree = TREE_OPERAND(exp, 2);
-
+  // env_tree = TREE_OPERAND(exp, 2);
+  env_tree = NULL_TREE;
 
   /* State variables we need to save and restore between
      iterations.  */