tree-ssa-pre.c (my_rev_post_order_compute): Remove set but not used count variable.

	* tree-ssa-pre.c (my_rev_post_order_compute): Remove set but not
	used count variable.
	* genemit.c (gen_expand, gen_split): Avoid set but not used warnings
	when operandN variables aren't used in the body of the expander
	or splitter.
	* tree-outof-ssa.c (FOR_EACH_ELIM_GRAPH_SUCC,
	FOR_EACH_ELIM_GRAPH_PRED): Avoid set but not used warnings.
	* tree-ssa-operands.h (FOR_EACH_SSA_TREE_OPERAND): Likewise.
	* tree-flow.h (FOR_EACH_IMM_USE_FAST, FOR_EACH_IMM_USE_STMT,
	FOR_EACH_IMM_USE_ON_STMT): Likewise.
	* tree.h (FOR_EACH_CONSTRUCTOR_ELT): Likewise.
	* tree.c (PROCESS_ARG): Likewise.
fortran/
	* parse.c (parse_derived, parse_enum): Avoid set but not used
	warning.
java/
	* expr.c (process_jvm_instruction): Avoid set but not used warning.
	* builtins.c (compareAndSwapInt_builtin, compareAndSwapLong_builtin,
	getVolatile_builtin): Likewise.
libjava/
	* exception.cc (_Jv_Throw): Avoid set but not used warning.
	* include/java-assert.h (JvAssertMessage, JvAssert): Use argument in
	sizeof to avoid set but not used warnings.
libjava/classpath/
	* native/jni/midi-alsa/gnu_javax_sound_midi_alsa_AlsaPortDevice.c
	(Java_gnu_javax_sound_midi_alsa_AlsaPortDevice_run_1receiver_1thread_1):
	Avoid set but not used warning.
libiberty/
	* regex.c (byte_re_match_2_internal): Avoid set but not used
	warning.
gcc/testsuite/
	* gcc.dg/builtin-choose-expr.c: Avoid set but not used warnings.
	* gcc.dg/trunc-1.c: Likewise.
	* gcc.dg/vla-9.c: Likewise.
	* gcc.dg/dfp/composite-type.c: Likewise.
libffi/
	* testsuite/libffi.call/err_bad_abi.c: Remove unused args variable.

From-SVN: r158084

2 files changed, 15 insertions, 30 deletions

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1f46730..795eeb5 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-07  Jakub Jelinek  <jakub@redhat.com>
+
+	* parse.c (parse_derived, parse_enum): Avoid set but not used
+	warning.
+
 2010-04-07  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	PR fortran/40539
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 190148c..ef8931d 100644
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -1968,14 +1968,12 @@ parse_derived_contains (void)
 static void
 parse_derived (void)
 {
-  int compiling_type, seen_private, seen_sequence, seen_component, error_flag;
+  int compiling_type, seen_private, seen_sequence, seen_component;
   gfc_statement st;
   gfc_state_data s;
   gfc_symbol *sym;
   gfc_component *c;
 
-  error_flag = 0;
-
   accept_statement (ST_DERIVED_DECL);
   push_state (&s, COMP_DERIVED, gfc_new_block);
 
@@ -2002,18 +2000,15 @@ parse_derived (void)
 
 	case ST_FINAL:
 	  gfc_error ("FINAL declaration at %C must be inside CONTAINS");
-	  error_flag = 1;
 	  break;
 
 	case ST_END_TYPE:
 endType:
 	  compiling_type = 0;
 
-	  if (!seen_component
-	      && (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Derived type "
-				 "definition at %C without components")
-		  == FAILURE))
-	    error_flag = 1;
+	  if (!seen_component)
+	    gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Derived type "
+			    "definition at %C without components");
 
 	  accept_statement (ST_END_TYPE);
 	  break;
@@ -2023,7 +2018,6 @@ endType:
 	    {
 	      gfc_error ("PRIVATE statement in TYPE at %C must be inside "
 			 "a MODULE");
-	      error_flag = 1;
 	      break;
 	    }
 
@@ -2031,15 +2025,11 @@ endType:
 	    {
 	      gfc_error ("PRIVATE statement at %C must precede "
 			 "structure components");
-	      error_flag = 1;
 	      break;
 	    }
 
 	  if (seen_private)
-	    {
-	      gfc_error ("Duplicate PRIVATE statement at %C");
-	      error_flag = 1;
-	    }
+	    gfc_error ("Duplicate PRIVATE statement at %C");
 
 	  s.sym->component_access = ACCESS_PRIVATE;
 
@@ -2052,7 +2042,6 @@ endType:
 	    {
 	      gfc_error ("SEQUENCE statement at %C must precede "
 			 "structure components");
-	      error_flag = 1;
 	      break;
 	    }
 
@@ -2063,7 +2052,6 @@ endType:
 	  if (seen_sequence)
 	    {
 	      gfc_error ("Duplicate SEQUENCE statement at %C");
-	      error_flag = 1;
 	    }
 
 	  seen_sequence = 1;
@@ -2072,14 +2060,12 @@ endType:
 	  break;
 
 	case ST_CONTAINS:
-	  if (gfc_notify_std (GFC_STD_F2003,
-			      "Fortran 2003:  CONTAINS block in derived type"
-			      " definition at %C") == FAILURE)
-	    error_flag = 1;
+	  gfc_notify_std (GFC_STD_F2003,
+			  "Fortran 2003:  CONTAINS block in derived type"
+			  " definition at %C");
 
 	  accept_statement (ST_CONTAINS);
-	  if (parse_derived_contains ())
-	    error_flag = 1;
+	  parse_derived_contains ();
 	  goto endType;
 
 	default:
@@ -2138,14 +2124,11 @@ endType:
 static void
 parse_enum (void)
 {
-  int error_flag;
   gfc_statement st;
   int compiling_enum;
   gfc_state_data s;
   int seen_enumerator = 0;
 
-  error_flag = 0;
-
   push_state (&s, COMP_ENUM, gfc_new_block);
 
   compiling_enum = 1;
@@ -2167,10 +2150,7 @@ parse_enum (void)
 	case ST_END_ENUM:
 	  compiling_enum = 0;
 	  if (!seen_enumerator)
-	    {
-	      gfc_error ("ENUM declaration at %C has no ENUMERATORS");
-	      error_flag = 1;
-	    }
+	    gfc_error ("ENUM declaration at %C has no ENUMERATORS");
 	  accept_statement (st);
 	  break;