Silence compiler warnings

gcc/
2019-09-17  Tobias Burnus  <tobias@codesourcery.com>

        * config/gcn/gcn.c (gcn_expand_scalar_to_vector_address,
        gcn_md_reorg): Remove unused statement.
        (gcn_emutls_var_init): Add missing return - after sorry abort.
        * config/gcn/gcn.md (movdi_symbol_save_scc): Fix condition.
        * config/gcn/mkoffload.c (process_obj): Remove unused variables.
        * gimplify.c (gomp_oacc_needs_data_present): Likewise.
        (gimplify_adjust_omp_clauses): Fix condition by adding ().
        * omp-low.c (process_oacc_gangprivate_1): Comment unused
        parameter name to silence unused warning.
        * omp-sese.c (omp_sese_number, omp_sese_pseudo): Remove
        superfluous ().
        (oacc_do_neutering): Use signed int to avoid a warning.
        * tree-ssa-structalias.c (find_func_aliases_for_builtin_call,
        find_func_clobbers): Use unsigned to silence warning.

gcc/fortran/
2019-09-17  Tobias Burnus  <tobias@codesourcery.com>

        * trans-expr.c (gfc_auto_dereference_var): Use passed loc argument.

(cherry picked from openacc-gcc-9-branch commit
500483e6ced44e2e0fea6a37e4f8c267ebaf826a)

diff --git a/gcc/ChangeLog.omp b/gcc/ChangeLog.omp
index 8f3aee75449166d18572c3759397c99a3d46877e..fe5849591530d61486abfc46519565abf0c9c888 100644 (file)
--- a/gcc/ChangeLog.omp
+++ b/gcc/ChangeLog.omp
@@ -1,3 +1,20 @@
+2019-09-17  Tobias Burnus  <tobias@codesourcery.com>
+
+       * config/gcn/gcn.c (gcn_expand_scalar_to_vector_address,
+       gcn_md_reorg): Remove unused statement.
+       (gcn_emutls_var_init): Add missing return - after sorry abort.
+       * config/gcn/gcn.md (movdi_symbol_save_scc): Fix condition.
+       * config/gcn/mkoffload.c (process_obj): Remove unused variables.
+       * gimplify.c (gomp_oacc_needs_data_present): Likewise.
+       (gimplify_adjust_omp_clauses): Fix condition by adding ().
+       * omp-low.c (process_oacc_gangprivate_1): Comment unused
+       parameter name to silence unused warning.
+       * omp-sese.c (omp_sese_number, omp_sese_pseudo): Remove
+       superfluous ().
+       (oacc_do_neutering): Use signed int to avoid a warning.
+       * tree-ssa-structalias.c (find_func_aliases_for_builtin_call,
+       find_func_clobbers): Use unsigned to silence warning.
+
 2019-09-10  Julian Brown  <julian@codesourcery.com>
 
        * config/gcn/mkoffload.c (process_asm): Remove omp_data_size,

diff --git a/gcc/config/gcn/gcn.c b/gcc/config/gcn/gcn.c
index f8434e4a4f116618510da46ff10f47bae3cc6d77..e0a558b289a00f9694e609761478be48bc4f1d49 100644 (file)
--- a/gcc/config/gcn/gcn.c
+++ b/gcc/config/gcn/gcn.c
@@ -1766,7 +1766,6 @@ gcn_expand_scalar_to_vector_address (machine_mode mode, rtx exec, rtx mem,
          /* tmp[:] += zext (mem_base)  */
          if (exec)
            {
-             rtx undef_di = gcn_gen_undef (DImode);
              emit_insn (gen_addv64si3_vcc_dup_exec (tmplo, mem_base_lo, tmplo,
                                                     vcc, undef_v64si, exec));
              emit_insn (gen_addcv64si3_exec (tmphi, tmphi, const0_rtx,
@@ -3167,6 +3166,7 @@ tree
 gcn_emutls_var_init (tree, tree decl, tree)
 {
   sorry_at (DECL_SOURCE_LOCATION (decl), "TLS is not implemented for GCN.");
+  return NULL_TREE;
 }
 
 /* }}}  */
@@ -4292,8 +4292,6 @@ gcn_md_reorg (void)
 {
   basic_block bb;
   rtx exec_reg = gen_rtx_REG (DImode, EXEC_REG);
-  rtx exec_lo_reg = gen_rtx_REG (SImode, EXEC_LO_REG);
-  rtx exec_hi_reg = gen_rtx_REG (SImode, EXEC_HI_REG);
   regset_head live;
 
   INIT_REG_SET (&live);

diff --git a/gcc/config/gcn/gcn.md b/gcc/config/gcn/gcn.md
index 537bb260ff7499ea6cb766306c9a9e0757ee0dad..1f328528e4a85601e18bac1357d29bd50fac2821 100644 (file)
--- a/gcc/config/gcn/gcn.md
+++ b/gcc/config/gcn/gcn.md
@@ -840,7 +840,7 @@
  [(set (match_operand:DI 0 "nonimmediate_operand" "=Sg")
        (match_operand:DI 1 "general_operand" "Y"))
   (clobber (reg:BI CC_SAVE_REG))]
- "GET_CODE (operands[1]) == SYMBOL_REF || GET_CODE (operands[1]) == LABEL_REF
+ "(GET_CODE (operands[1]) == SYMBOL_REF || GET_CODE (operands[1]) == LABEL_REF)
   && (lra_in_progress || reload_completed)"
  "#"
  "reload_completed"

diff --git a/gcc/config/gcn/mkoffload.c b/gcc/config/gcn/mkoffload.c
index 593274bf054082fb0e7580de1906e14bbc95bd16..c96ed23a2a6e57ae85f5a67700b5022a908fddda 100644 (file)
--- a/gcc/config/gcn/mkoffload.c
+++ b/gcc/config/gcn/mkoffload.c
@@ -367,8 +367,6 @@ process_obj (FILE *in, FILE *cfile)
 {
   size_t len = 0;
   const char *input = read_file (in, &len);
-  id_map const *id;
-  unsigned ix;
 
   /* Dump out an array containing the binary.
      FIXME: do this with objcopy.  */

diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp
index 576e33fd567fe3c79bb172aec09aa04e10dd9fed..a54fb4e461444f56657c8971b50b2f9d92baa0ba 100644 (file)
--- a/gcc/fortran/ChangeLog.omp
+++ b/gcc/fortran/ChangeLog.omp
@@ -1,3 +1,7 @@
+2019-09-17  Tobias Burnus  <tobias@codesourcery.com>
+
+       * trans-expr.c (gfc_auto_dereference_var): Use passed loc argument.
+
 2019-09-06  Andrew Stubbs  <ams@codesourcery.com>
 
        Backport from mainline:

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 7dc5ada9b6bd01acc1858c595c3e2ac610ef5bb9..4a3bd9acd65f88b572644b078480f66a9e55b637 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -2576,7 +2576,7 @@ gfc_auto_dereference_var (location_t loc, gfc_symbol *sym, tree var,
          && (sym->attr.dummy
              || sym->attr.function
              || sym->attr.result))
-       var = build_fold_indirect_ref_loc (input_location, var);
+       var = build_fold_indirect_ref_loc (loc, var);
     }
   else if (!sym->attr.value)
     {
@@ -2587,7 +2587,7 @@ gfc_auto_dereference_var (location_t loc, gfc_symbol *sym, tree var,
          if (!descriptor_only_p)
            var = GFC_DECL_SAVED_DESCRIPTOR (var);
 
-         var = build_fold_indirect_ref_loc (input_location, var);
+         var = build_fold_indirect_ref_loc (loc, var);
        }
 
       /* Dereference non-character scalar dummy arguments.  */
@@ -2597,14 +2597,14 @@ gfc_auto_dereference_var (location_t loc, gfc_symbol *sym, tree var,
              || (!CLASS_DATA (sym)->attr.dimension
                  && !(CLASS_DATA (sym)->attr.codimension
                       && CLASS_DATA (sym)->attr.allocatable))))
-       var = build_fold_indirect_ref_loc (input_location, var);
+       var = build_fold_indirect_ref_loc (loc, var);
 
       /* Dereference scalar hidden result.  */
       if (flag_f2c && sym->ts.type == BT_COMPLEX
          && (sym->attr.function || sym->attr.result)
          && !sym->attr.dimension && !sym->attr.pointer
          && !sym->attr.always_explicit)
-       var = build_fold_indirect_ref_loc (input_location, var);
+       var = build_fold_indirect_ref_loc (loc, var);
 
       /* Dereference non-character, non-class pointer variables.
         These must be dummies, results, or scalars.  */
@@ -2617,7 +2617,7 @@ gfc_auto_dereference_var (location_t loc, gfc_symbol *sym, tree var,
              || sym->attr.result
              || (!sym->attr.dimension
                  && (!sym->attr.codimension || !sym->attr.allocatable))))
-       var = build_fold_indirect_ref_loc (input_location, var);
+       var = build_fold_indirect_ref_loc (loc, var);
       /* Now treat the class array pointer variables accordingly.  */
       else if (sym->ts.type == BT_CLASS
               && sym->attr.dummy
@@ -2627,7 +2627,7 @@ gfc_auto_dereference_var (location_t loc, gfc_symbol *sym, tree var,
                    && CLASS_DATA (sym)->as->type == AS_ASSUMED_RANK)
                   || CLASS_DATA (sym)->attr.allocatable
                   || CLASS_DATA (sym)->attr.class_pointer))
-       var = build_fold_indirect_ref_loc (input_location, var);
+       var = build_fold_indirect_ref_loc (loc, var);
       /* And the case where a non-dummy, non-result, non-function,
         non-allotable and non-pointer classarray is present.  This case was
         previously covered by the first if, but with introducing the
@@ -2642,7 +2642,7 @@ gfc_auto_dereference_var (location_t loc, gfc_symbol *sym, tree var,
               && (sym->assoc
                   || !CLASS_DATA (sym)->attr.allocatable)
               && !CLASS_DATA (sym)->attr.class_pointer)
-       var = build_fold_indirect_ref_loc (input_location, var);
+       var = build_fold_indirect_ref_loc (loc, var);
     }
 
   return var;

diff --git a/gcc/gimplify.c b/gcc/gimplify.c
index 60761504a5e90bacb593d0b8338076d68c7bfaba..d16611d3617e6f4ccdb1f26a9d42a497f0154bcd 100644 (file)
--- a/gcc/gimplify.c
+++ b/gcc/gimplify.c
@@ -9757,7 +9757,6 @@ static oacc_array_mapping_info *
 gomp_oacc_needs_data_present (tree decl)
 {
   gimplify_omp_ctx *ctx = NULL;
-  bool ref_p = TREE_CODE (TREE_TYPE (decl)) == REFERENCE_TYPE;
 
   if (gimplify_omp_ctxp->region_type != ORT_ACC_PARALLEL
       && gimplify_omp_ctxp->region_type != ORT_ACC_KERNELS
@@ -10437,8 +10436,8 @@ gimplify_adjust_omp_clauses (gimple_seq *pre_p, gimple_seq body, tree *list_p,
          /* OpenACC reductions need a present_or_copy data clause.
             Add one if necessary.  Emit error when the reduction is
             private.  */
-         if (DECL_P (decl) && ctx->region_type == ORT_ACC_PARALLEL
-             || ctx->region_type == ORT_ACC_SERIAL)
+         if (DECL_P (decl) && (ctx->region_type == ORT_ACC_PARALLEL
+                               || ctx->region_type == ORT_ACC_SERIAL))
            {
              n = splay_tree_lookup (ctx->variables, (splay_tree_key) decl);
              if (n->value & (GOVD_PRIVATE | GOVD_FIRSTPRIVATE))

diff --git a/gcc/omp-low.c b/gcc/omp-low.c
index 4b21769a9a7dec92f78869b4a3a15554a14c91fc..18ad6386f27d4c91c33474954a0962ae4ee9e0f8 100644 (file)
--- a/gcc/omp-low.c
+++ b/gcc/omp-low.c
@@ -11204,7 +11204,7 @@ lower_omp_grid_body (gimple_stmt_iterator *gsi_p, omp_context *ctx)
 /* Find gang-private variables in a context.  */
 
 static int
-process_oacc_gangprivate_1 (splay_tree_node node, void *data)
+process_oacc_gangprivate_1 (splay_tree_node node, void * /* data */)
 {
   omp_context *ctx = (omp_context *) node->value;
   unsigned level_total = 0;

diff --git a/gcc/omp-sese.c b/gcc/omp-sese.c
index d6f1e8edd62f617bb0d038519de78c6b6cac0774..d72670176771a97e15b8f388ece8e6502d269577 100644 (file)
--- a/gcc/omp-sese.c
+++ b/gcc/omp-sese.c
@@ -1346,7 +1346,7 @@ oacc_do_neutering (void)
   vec<propagation_set *> prop_set;
   prop_set.create (last_basic_block_for_fn (cfun));
 
-  for (unsigned i = 0; i < last_basic_block_for_fn (cfun); i++)
+  for (int i = 0; i < last_basic_block_for_fn (cfun); i++)
     prop_set.quick_push (0);
 
   find_ssa_names_to_propagate (par, mask, worker_single, vector_single,
@@ -1638,7 +1638,7 @@ omp_sese_number (int n, int p, int dir, basic_block b,
       size_t offset = (dir > 0 ? offsetof (edge_def, dest)
                       : offsetof (edge_def, src));
       edge e;
-      edge_iterator (ei);
+      edge_iterator ei;
 
       FOR_EACH_EDGE (e, ei, edges)
        {
@@ -1661,7 +1661,7 @@ omp_sese_pseudo (basic_block me, bb_sese *sese, int depth, int dir,
                   vec<edge, va_gc> *edges, size_t offset)
 {
   edge e;
-  edge_iterator (ei);
+  edge_iterator ei;
   int hi_back = depth;
   pseudo_node_t node_back (0, depth);
   int hi_child = depth;

diff --git a/gcc/tree-ssa-structalias.c b/gcc/tree-ssa-structalias.c
index ebdf31e241e272a03ae6feeb9749d65f38ecf607..17f2d3daf12ddbf6a2052b8d0dd40fea7cf47814 100644 (file)
--- a/gcc/tree-ssa-structalias.c
+++ b/gcc/tree-ssa-structalias.c
@@ -4711,7 +4711,7 @@ find_func_aliases_for_builtin_call (struct function *fn, gcall *t)
                  fnpos = 1;
                  argpos = 3;
                  if (targetm.goacc.explode_args ())
-                   for (int i = 6; i < gimple_call_num_args (t); i++)
+                   for (unsigned int i = 6; i < gimple_call_num_args (t); i++)
                      {
                        tree arg = gimple_call_arg (t, i);
                        if (TREE_CODE (arg) == INTEGER_CST
@@ -5288,7 +5288,7 @@ find_func_clobbers (struct function *fn, gimple *origt)
                  implicit_use_args[num_implicit_use_args++] = 4;
                  implicit_use_args[num_implicit_use_args++] = 5;
                  if (targetm.goacc.explode_args ())
-                   for (int i = 6; i < gimple_call_num_args (t); i++)
+                   for (unsigned int i = 6; i < gimple_call_num_args (t); i++)
                      {
                        tree arg = gimple_call_arg (t, i);
                        if (TREE_CODE (arg) == INTEGER_CST