OSDN Git Service

merge from gnu/gcc-4_7-branch.
authorMasaki Muranaka <monaka@monami-ya.jp>
Thu, 15 May 2014 08:37:50 +0000 (17:37 +0900)
committerMasaki Muranaka <monaka@monami-ya.jp>
Thu, 15 May 2014 08:37:50 +0000 (17:37 +0900)
53 files changed:
boehm-gc/include/Makefile.am
boehm-gc/include/Makefile.in
gcc/config/avr/avr.h
gcc/config/m32c/muldiv.md
gcc/config/m32c/predicates.md
gcc/config/m68k/t-linux
gcc/config/mn10300/mn10300.c
gcc/config/picochip/picochip.c
gcc/config/rx/predicates.md
gcc/config/sparc/t-crtin [deleted file]
gcc/df-problems.c
gcc/final.c
gcc/predict.c
gcc/testsuite/g++.dg/cpp0x/initlist-49216.C [deleted file]
gcc/testsuite/g++.dg/cpp0x/regress/49290.C [deleted file]
gcc/testsuite/g++.dg/gomp/pr51360-2.C [deleted file]
gcc/testsuite/g++.dg/init/pr25811-2.C [deleted file]
gcc/testsuite/g++.old-deja/g++.oliva/ChangeLog-2005
gcc/testsuite/gcc.c-torture/compile/pr41679.c [new file with mode: 0644]
gcc/testsuite/gcc.c-torture/compile/pr46883.c [new file with mode: 0644]
gcc/testsuite/gcc.dg/gomp/pr51360.c [deleted file]
gcc/testsuite/gcc.dg/pr54472.c [deleted file]
gcc/testsuite/gcc.dg/torture/pr49886.c [deleted file]
gcc/testsuite/gcc.dg/tree-ssa/pr49642.c [deleted file]
gcc/testsuite/gfortran.dg/allocatable_scalar_9.f90
gcc/testsuite/gfortran.dg/bessel_1.f90
gcc/testsuite/gfortran.dg/func_result_6.f90
gcc/testsuite/gfortran.dg/hypot_1.f90
gcc/testsuite/gfortran.dg/interface_assignment_4.f90
gcc/testsuite/gfortran.dg/proc_ptr_comp_20.f90
gcc/testsuite/gfortran.dg/proc_ptr_comp_21.f90
gcc/testsuite/gfortran.fortran-torture/compile/pr50260.f90 [deleted file]
gcc/testsuite/lib/prune.exp
gcc/tree-eh.c
libgcc/config/ia64/t-linux
libgfortran/generated/eoshift3_16.c
libgfortran/generated/eoshift3_4.c
libgfortran/generated/eoshift3_8.c
libgfortran/io/file_pos.c
libgfortran/io/intrinsics.c
libgfortran/io/unix.c
libgfortran/io/unix.h
libgfortran/m4/eoshift3.m4
libstdc++-v3/config.h.in
libstdc++-v3/include/bits/stl_algo.h
libstdc++-v3/include/ext/type_traits.h
libstdc++-v3/include/parallel/algo.h
libstdc++-v3/libsupc++/Makefile.am
libstdc++-v3/src/functional.cc [deleted file]
libstdc++-v3/src/shared_ptr.cc [deleted file]
libstdc++-v3/testsuite/20_util/allocator/51626.cc [deleted file]
libstdc++-v3/testsuite/ext/type_traits/add_unsigned_integer_neg.cc
libstdc++-v3/testsuite/ext/type_traits/remove_unsigned_integer_neg.cc

index 63aec07..381ae76 100644 (file)
@@ -1,4 +1,4 @@
-AUTOMAKE_OPTIONS = foreign no-dist
+AUTOMAKE_OPTIONS = foreign
 
 noinst_HEADERS = gc.h gc_backptr.h gc_local_alloc.h \
   gc_pthread_redirects.h gc_cpp.h
index 8287ef6..c56e483 100644 (file)
@@ -198,7 +198,7 @@ toolexeclibdir = @toolexeclibdir@
 top_build_prefix = @top_build_prefix@
 top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
-AUTOMAKE_OPTIONS = foreign no-dist
+AUTOMAKE_OPTIONS = foreign
 noinst_HEADERS = gc.h gc_backptr.h gc_local_alloc.h \
   gc_pthread_redirects.h gc_cpp.h
 
index cec00c1..79a669d 100644 (file)
@@ -671,13 +671,6 @@ mmcu=*:-mmcu=%*} \
    is one byte below the first argument.  */
 #define ARG_POINTER_CFA_OFFSET(FNDECL)  -1
 
-#define INCOMING_RETURN_ADDR_RTX   avr_incoming_return_addr_rtx ()
-#define INCOMING_FRAME_SP_OFFSET   (AVR_3_BYTE_PC ? 3 : 2)
-
-/* The caller's stack pointer value immediately before the call
-   is one byte below the first argument.  */
-#define ARG_POINTER_CFA_OFFSET(FNDECL)  -1
-
 #define HARD_REGNO_RENAME_OK(OLD_REG, NEW_REG) \
   avr_hard_regno_rename_ok (OLD_REG, NEW_REG)
 
index 17b0b5d..4987083 100644 (file)
 (define_insn "umulhisi3_c"
   [(set (match_operand:SI 0 "ra_operand" "=Rsi")
         (mult:SI (zero_extend:SI (match_operand:HI 1 "mra_operand" "%0"))
-                 (match_operand 2 "m32c_const_u16_operand" "i")))]
+                 (match_operand 2 "immediate_operand" "i")))]
   ""
   "mulu.w\t%u2,%1"
   [(set_attr "flags" "o")]
index 533f346..9293baa 100644 (file)
 (define_predicate "m32c_1mask16_operand"
   (and (match_operand 0 "const_int_operand")
        (match_test "m32c_const_ok_for_constraint_p(INTVAL(op), 'I', \"Imw\")")))
-
-(define_predicate "m32c_const_u16_operand"
-  (and (match_operand 0 "const_int_operand")
-       (match_test "INTVAL (op) >= 0 && INTVAL (op) <= 65535")))
index 669a356..aa64dfc 100644 (file)
@@ -23,10 +23,6 @@ ifeq ($(M68K_ARCH),m68k)
 MULTIARCH_DIRNAME = $(call if_multiarch,m68k-linux-gnu)
 endif
 
-ifeq ($(M68K_ARCH),m68k)
-MULTIARCH_DIRNAME = $(call if_multiarch,m68k-linux-gnu)
-endif
-
 # This rule uses MULTILIB_MATCHES to generate a definition of
 # SYSROOT_SUFFIX_SPEC.
 sysroot-suffix.h: $(srcdir)/config/m68k/print-sysroot-suffix.sh
index 81be520..8568189 100644 (file)
@@ -2475,7 +2475,6 @@ mn10300_encode_section_info (tree decl, rtx rtl, int first)
 
   if (! MEM_P (rtl))
     return;
-
   symbol = XEXP (rtl, 0);
   if (GET_CODE (symbol) != SYMBOL_REF)
     return;
index d7f9aeb..b878a1f 100644 (file)
@@ -332,17 +332,6 @@ static char picochip_get_vliw_alu_id (void);
 #undef TARGET_DELAY_VARTRACK
 #define TARGET_DELAY_VARTRACK true
 
-/* The 2nd scheduling pass option is switched off, and a machine
-   dependent reorganisation ensures that it is run later on, after the
-   second jump optimisation.  */
-#undef TARGET_DELAY_SCHED2
-#define TARGET_DELAY_SCHED2 true
-
-/* Variable tracking should be run after all optimizations which
-   change order of insns.  It also needs a valid CFG.  */
-#undef TARGET_DELAY_VARTRACK
-#define TARGET_DELAY_VARTRACK true
-
 struct gcc_target targetm = TARGET_INITIALIZER;
 \f
 
index 6ec27ce..aa0321e 100644 (file)
 )
 
 (define_predicate "rx_zs_comparison_operator"
-  (match_code "eq,ne")
+  (match_code "eq,ne,lt,ge")
 )
 
 ;; GT and LE omitted due to operand swap required.
diff --git a/gcc/config/sparc/t-crtin b/gcc/config/sparc/t-crtin
deleted file mode 100644 (file)
index 2612bac..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-EXTRA_PARTS += crti.o crtn.o
-
-$(T)crti.o: $(srcdir)/config/sparc/sol2-ci.asm $(GCC_PASSES)
-       $(GCC_FOR_TARGET) $(MULTILIB_CFLAGS) -c -o $(T)crti.o -x assembler-with-cpp $(srcdir)/config/sparc/sol2-ci.asm
-$(T)crtn.o: $(srcdir)/config/sparc/sol2-cn.asm $(GCC_PASSES)
-       $(GCC_FOR_TARGET) $(MULTILIB_CFLAGS) -c -o $(T)crtn.o -x assembler-with-cpp $(srcdir)/config/sparc/sol2-cn.asm
index f560207..4afdd6f 100644 (file)
@@ -4010,19 +4010,6 @@ can_move_insns_across (rtx from, rtx to, rtx across_from, rtx across_to,
   df_simulate_initialize_backwards (merge_bb, test_use);
   for (insn = across_to; ; insn = next)
     {
-      if (CALL_P (insn))
-       {
-         if (RTL_CONST_OR_PURE_CALL_P (insn))
-           /* Pure functions can read from memory.  Const functions can
-              read from arguments that the ABI has forced onto the stack.
-              Neither sort of read can be volatile.  */
-           memrefs_in_across |= MEMREF_NORMAL;
-         else
-           {
-             memrefs_in_across |= MEMREF_VOLATILE;
-             mem_sets_in_across |= MEMREF_VOLATILE;
-           }
-       }
       if (NONDEBUG_INSN_P (insn))
        {
          df_simulate_find_defs (insn, test_set);
index e83ef20..718caf1 100644 (file)
@@ -2320,11 +2320,6 @@ final_scan_insn (rtx insn, FILE *file, int optimize_p ATTRIBUTE_UNUSED,
            location_t loc;
            expanded_location expanded;
 
-           /* Make sure we flush any queued register saves in case this
-              clobbers affected registers.  */
-           if (dwarf2out_do_frame ())
-             dwarf2out_frame_debug (insn, false);
-
            /* There's no telling what that did to the condition codes.  */
            CC_STATUS_INIT;
 
index b3145e0..2f550e7 100644 (file)
@@ -1,6 +1,6 @@
 /* Branch prediction routines for the GNU compiler.
    Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010
-   2011, 2012, 2013 Free Software Foundation, Inc.
+   Free Software Foundation, Inc.
 
 This file is part of GCC.
 
diff --git a/gcc/testsuite/g++.dg/cpp0x/initlist-49216.C b/gcc/testsuite/g++.dg/cpp0x/initlist-49216.C
deleted file mode 100644 (file)
index 4bf6082..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-// PR c++/49216
-// { dg-options -std=c++0x }
-
-int main() {
-  new int[1]{};
-}
diff --git a/gcc/testsuite/g++.dg/cpp0x/regress/49290.C b/gcc/testsuite/g++.dg/cpp0x/regress/49290.C
deleted file mode 100644 (file)
index 71e46c5..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-typedef unsigned T;
-struct S
-{
-  T foo (void);
-  static unsigned s1[16];
-};
-T
-S::foo ()
-{
-  T u = *(T *) (s1 + 10);
-  return u;
-}
diff --git a/gcc/testsuite/g++.dg/gomp/pr51360-2.C b/gcc/testsuite/g++.dg/gomp/pr51360-2.C
deleted file mode 100644 (file)
index cc03849..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-/* PR c/51360 */
-/* { dg-do compile } */
-/* { dg-options "-Wunused -W -fopenmp" } */
-
-void
-foo (int a, int b, int c)
-{
-  int m, n, o, i;
-  m = 6;
-  n = 1;
-  o = 5;
-  a = 6;
-  b = 1;
-  c = 5;
-  #pragma omp parallel for num_threads (m) if (n) schedule (static, o)
-  for (i = 0; i < 10; i++)
-    ;
-  #pragma omp parallel for num_threads (a) if (b) schedule (static, c)
-  for (i = 0; i < 10; i++)
-    ;
-}
diff --git a/gcc/testsuite/g++.dg/init/pr25811-2.C b/gcc/testsuite/g++.dg/init/pr25811-2.C
deleted file mode 100644 (file)
index 3a36dd4..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// { dg-do compile }
-// { dg-options -fpermissive }
-
-struct A
-{
-  int const i; // { dg-message "should be initialized" }
-};
-
-struct B
-{
-  int& r; // { dg-message "should be initialized" }
-};
-
-struct C
-{
-  int const i : 1; // { dg-message "should be initialized" }
-};
-
-void f()
-{
-  new A;  // { dg-warning "uninitialized" }
-  new B;  // { dg-warning "uninitialized" }
-  new C;  // { dg-warning "uninitialized" }
-  C c;    // { dg-warning "uninitialized" }
-  A a[1]; // { dg-warning "uninitialized" }
-}
index 363ea17..995ac91 100644 (file)
@@ -1,23 +1,3 @@
-2013-04-12  Release Manager
-
-       * GCC 4.6.4 released.
-
-2012-03-01  Release Manager
-
-       * GCC 4.6.3 released.
-
-2011-10-26  Release Manager
-
-       * GCC 4.6.2 released.
-
-2011-06-27  Release Manager
-
-       * GCC 4.6.1 released.
-
-2011-03-25  Release Manager
-
-       * GCC 4.6.0 released.
-
 2005-04-03  Alexandre Oliva  <aoliva@redhat.com>
 
        PR c++/19199
diff --git a/gcc/testsuite/gcc.c-torture/compile/pr41679.c b/gcc/testsuite/gcc.c-torture/compile/pr41679.c
new file mode 100644 (file)
index 0000000..aa10cb6
--- /dev/null
@@ -0,0 +1,15 @@
+/* { dg-options "-g" } */
+
+extern int a;
+extern char b;
+extern int foo (void);
+
+void
+test (void)
+{
+  int c;
+  b = foo () ? '~' : '\0';
+  while ((c = foo ()))
+    if (c == '7')
+      a = 0;
+}
diff --git a/gcc/testsuite/gcc.c-torture/compile/pr46883.c b/gcc/testsuite/gcc.c-torture/compile/pr46883.c
new file mode 100644 (file)
index 0000000..db8527d
--- /dev/null
@@ -0,0 +1,13 @@
+void bar (unsigned char *q, unsigned short *data16s, int len)
+{
+  int i;
+
+  for (i = 0; i < len; i++)
+    {
+      q[2 * i] =
+        (((data16s[i] & 0xFF) << 8) | ((data16s[i] >> 8) & 0xFF)) & 0xFF;
+      q[2 * i + 1] =
+        ((unsigned short)
+         (((data16s[i] & 0xFF) << 8) | ((data16s[i] >> 8) & 0xFF))) >> 8;
+    }
+}
diff --git a/gcc/testsuite/gcc.dg/gomp/pr51360.c b/gcc/testsuite/gcc.dg/gomp/pr51360.c
deleted file mode 100644 (file)
index cc03849..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-/* PR c/51360 */
-/* { dg-do compile } */
-/* { dg-options "-Wunused -W -fopenmp" } */
-
-void
-foo (int a, int b, int c)
-{
-  int m, n, o, i;
-  m = 6;
-  n = 1;
-  o = 5;
-  a = 6;
-  b = 1;
-  c = 5;
-  #pragma omp parallel for num_threads (m) if (n) schedule (static, o)
-  for (i = 0; i < 10; i++)
-    ;
-  #pragma omp parallel for num_threads (a) if (b) schedule (static, c)
-  for (i = 0; i < 10; i++)
-    ;
-}
diff --git a/gcc/testsuite/gcc.dg/pr54472.c b/gcc/testsuite/gcc.dg/pr54472.c
deleted file mode 100644 (file)
index 9395203..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-/* { dg-do compile { target powerpc*-*-* ia64-*-* x86_64-*-* } } */
-/* { dg-options "-O -fschedule-insns -fselective-scheduling" } */
-
-int main ()
-{
-  int a[3][3][3];
-  __builtin_memset (a, 0, sizeof a);
-  return 0;
-}
diff --git a/gcc/testsuite/gcc.dg/torture/pr49886.c b/gcc/testsuite/gcc.dg/torture/pr49886.c
deleted file mode 100644 (file)
index f0e8e60..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-/* { dg-do run } */
-
-struct PMC {
-    unsigned flags;
-};
-
-typedef struct Pcc_cell
-{
-    struct PMC *p;
-    long bla;
-    long type;
-} Pcc_cell;
-
-int gi;
-int cond;
-
-extern void abort ();
-extern void never_ever(int interp, struct PMC *pmc)
-  __attribute__((noinline,noclone));
-
-void never_ever (int interp, struct PMC *pmc)
-{
-  abort ();
-}
-
-static void mark_cell(int * interp, Pcc_cell *c)
-  __attribute__((__nonnull__(1)));
-
-static void
-mark_cell(int * interp, Pcc_cell *c)
-{
-  if (!cond)
-    return;
-
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<18)))
-    never_ever(gi + 1, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<17)))
-    never_ever(gi + 2, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<16)))
-    never_ever(gi + 3, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<15)))
-    never_ever(gi + 4, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<14)))
-    never_ever(gi + 5, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<13)))
-    never_ever(gi + 6, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<12)))
-    never_ever(gi + 7, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<11)))
-    never_ever(gi + 8, c->p);
-  if (c && c->type == 4 && c->p
-      && !(c->p->flags & (1<<10)))
-    never_ever(gi + 9, c->p);
-}
-
-static void
-foo(int * interp, Pcc_cell *c)
-{
-  mark_cell(interp, c);
-}
-
-static struct Pcc_cell *
-__attribute__((noinline,noclone))
-getnull(void)
-{
-  return (struct Pcc_cell *) 0;
-}
-
-
-int main()
-{
-  int i;
-
-  cond = 1;
-  for (i = 0; i < 100; i++)
-    foo (&gi, getnull ());
-  return 0;
-}
-
-
-void
-bar_1 (int * interp, Pcc_cell *c)
-{
-  c->bla += 1;
-  mark_cell(interp, c);
-}
-
-void
-bar_2 (int * interp, Pcc_cell *c)
-{
-  c->bla += 2;
-  mark_cell(interp, c);
-}
-
diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr49642.c b/gcc/testsuite/gcc.dg/tree-ssa/pr49642.c
deleted file mode 100644 (file)
index 65a0b12..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-/* Verify that ipa-split is disabled following __builtin_constant_p.  */
-
-/* { dg-do compile } */
-/* { dg-options "-O2 -fdump-tree-optimized" } */
-
-typedef unsigned int u32;
-typedef unsigned long long u64;
-
-static inline __attribute__((always_inline)) __attribute__((const))
-int __ilog2_u32(u32 n)
-{
- int bit;
- asm ("cntlzw %0,%1" : "=r" (bit) : "r" (n));
- return 31 - bit;
-}
-
-
-static inline __attribute__((always_inline)) __attribute__((const))
-int __ilog2_u64(u64 n)
-{
- int bit;
- asm ("cntlzd %0,%1" : "=r" (bit) : "r" (n));
- return 63 - bit;
-}
-
-
-
-static u64 ehca_map_vaddr(void *caddr);
-
-struct ehca_shca {
-        u32 hca_cap_mr_pgsize;
-};
-
-static u64 ehca_get_max_hwpage_size(struct ehca_shca *shca)
-{
- return 1UL << ( __builtin_constant_p(shca->hca_cap_mr_pgsize) ? ( (shca->hca_cap_mr_pgsize) < 1 ? ____ilog2_NaN() : (shca->hca_cap_mr_pgsize) & (1ULL << 63) ? 63 : (shca->hca_cap_mr_pgsize) & (1ULL << 62) ? 62 : (shca->hca_cap_mr_pgsize) & (1ULL << 61) ? 61 : (shca->hca_cap_mr_pgsize) & (1ULL << 60) ? 60 : (shca->hca_cap_mr_pgsize) & (1ULL << 59) ? 59 : (shca->hca_cap_mr_pgsize) & (1ULL << 58) ? 58 : (shca->hca_cap_mr_pgsize) & (1ULL << 57) ? 57 : (shca->hca_cap_mr_pgsize) & (1ULL << 56) ? 56 : (shca->hca_cap_mr_pgsize) & (1ULL << 55) ? 55 : (shca->hca_cap_mr_pgsize) & (1ULL << 54) ? 54 : (shca->hca_cap_mr_pgsize) & (1ULL << 53) ? 53 : (shca->hca_cap_mr_pgsize) & (1ULL << 52) ? 52 : (shca->hca_cap_mr_pgsize) & (1ULL << 51) ? 51 : (shca->hca_cap_mr_pgsize) & (1ULL << 50) ? 50 : (shca->hca_cap_mr_pgsize) & (1ULL << 49) ? 49 : (shca->hca_cap_mr_pgsize) & (1ULL << 48) ? 48 : (shca->hca_cap_mr_pgsize) & (1ULL << 47) ? 47 : (shca->hca_cap_mr_pgsize) & (1ULL << 46) ? 46 : (shca->hca_cap_mr_pgsize) & (1ULL << 45) ? 45 : (shca->hca_cap_mr_pgsize) & (1ULL << 44) ? 44 : (shca->hca_cap_mr_pgsize) & (1ULL << 43) ? 43 : (shca->hca_cap_mr_pgsize) & (1ULL << 42) ? 42 : (shca->hca_cap_mr_pgsize) & (1ULL << 41) ? 41 : (shca->hca_cap_mr_pgsize) & (1ULL << 40) ? 40 : (shca->hca_cap_mr_pgsize) & (1ULL << 39) ? 39 : (shca->hca_cap_mr_pgsize) & (1ULL << 38) ? 38 : (shca->hca_cap_mr_pgsize) & (1ULL << 37) ? 37 : (shca->hca_cap_mr_pgsize) & (1ULL << 36) ? 36 : (shca->hca_cap_mr_pgsize) & (1ULL << 35) ? 35 : (shca->hca_cap_mr_pgsize) & (1ULL << 34) ? 34 : (shca->hca_cap_mr_pgsize) & (1ULL << 33) ? 33 : (shca->hca_cap_mr_pgsize) & (1ULL << 32) ? 32 : (shca->hca_cap_mr_pgsize) & (1ULL << 31) ? 31 : (shca->hca_cap_mr_pgsize) & (1ULL << 30) ? 30 : (shca->hca_cap_mr_pgsize) & (1ULL << 29) ? 29 : (shca->hca_cap_mr_pgsize) & (1ULL << 28) ? 28 : (shca->hca_cap_mr_pgsize) & (1ULL << 27) ? 27 : (shca->hca_cap_mr_pgsize) & (1ULL << 26) ? 26 : (shca->hca_cap_mr_pgsize) & (1ULL << 25) ? 25 : (shca->hca_cap_mr_pgsize) & (1ULL << 24) ? 24 : (shca->hca_cap_mr_pgsize) & (1ULL << 23) ? 23 : (shca->hca_cap_mr_pgsize) & (1ULL << 22) ? 22 : (shca->hca_cap_mr_pgsize) & (1ULL << 21) ? 21 : (shca->hca_cap_mr_pgsize) & (1ULL << 20) ? 20 : (shca->hca_cap_mr_pgsize) & (1ULL << 19) ? 19 : (shca->hca_cap_mr_pgsize) & (1ULL << 18) ? 18 : (shca->hca_cap_mr_pgsize) & (1ULL << 17) ? 17 : (shca->hca_cap_mr_pgsize) & (1ULL << 16) ? 16 : (shca->hca_cap_mr_pgsize) & (1ULL << 15) ? 15 : (shca->hca_cap_mr_pgsize) & (1ULL << 14) ? 14 : (shca->hca_cap_mr_pgsize) & (1ULL << 13) ? 13 : (shca->hca_cap_mr_pgsize) & (1ULL << 12) ? 12 : (shca->hca_cap_mr_pgsize) & (1ULL << 11) ? 11 : (shca->hca_cap_mr_pgsize) & (1ULL << 10) ? 10 : (shca->hca_cap_mr_pgsize) & (1ULL << 9) ? 9 : (shca->hca_cap_mr_pgsize) & (1ULL << 8) ? 8 : (shca->hca_cap_mr_pgsize) & (1ULL << 7) ? 7 : (shca->hca_cap_mr_pgsize) & (1ULL << 6) ? 6 : (shca->hca_cap_mr_pgsize) & (1ULL << 5) ? 5 : (shca->hca_cap_mr_pgsize) & (1ULL << 4) ? 4 : (shca->hca_cap_mr_pgsize) & (1ULL << 3) ? 3 : (shca->hca_cap_mr_pgsize) & (1ULL << 2) ? 2 : (shca->hca_cap_mr_pgsize) & (1ULL << 1) ? 1 : (shca->hca_cap_mr_pgsize) & (1ULL << 0) ? 0 : ____ilog2_NaN() ) : (sizeof(shca->hca_cap_mr_pgsize) <= 4) ? __ilog2_u32(shca->hca_cap_mr_pgsize) : __ilog2_u64(shca->hca_cap_mr_pgsize) );
-}
-
-int x(struct ehca_shca *shca) {
-        return ehca_get_max_hwpage_size(shca);
-}
-
-int y(struct ehca_shca *shca)
-{
-        return ehca_get_max_hwpage_size(shca);
-}
-
-/* { dg-final { scan-tree-dump-times "____ilog2_NaN" 0 "optimized" } } */
-/* { dg-final { cleanup-tree-dump "optimized" } } */
index fef9b05..f4c6599 100644 (file)
@@ -49,7 +49,7 @@ if(allocated(na3%b3)) call abort()
 if(allocated(na4%b4)) call abort()
 end
 
-! { dg-final { scan-tree-dump-times "__builtin_free" 38 "original" } }
+! { dg-final { scan-tree-dump-times "__builtin_free" 32 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
 
 ! { dg-final { cleanup-modules "m" } }
index fb1e19b..728c5ce 100644 (file)
@@ -26,11 +26,11 @@ program test
   call check(bessel_yn (3,x4), bessel_yn (3,1.9_4))
 
 contains
-  subroutine check_r4 (a, b) ! { dg-warning "Extension: Internal procedure" }
+  subroutine check_r4 (a, b)
     real(kind=4), intent(in) :: a, b
     if (abs(a - b) > 1.e-5 * abs(b)) call abort
   end subroutine
-  subroutine check_r8 (a, b) ! { dg-warning "Extension: Internal procedure" }
+  subroutine check_r8 (a, b)
     real(kind=8), intent(in) :: a, b
     if (abs(a - b) > 1.e-7 * abs(b)) call abort
   end subroutine
index e8347be..e64a2ef 100644 (file)
@@ -63,7 +63,7 @@ if (ptr /= 2) call abort()
 bar = gen()
 if (ptr /= 77) call abort()
 contains
-  function foo() ! { dg-warning "Extension: Internal procedure .foo. in generic interface" }
+  function foo()
     integer, allocatable :: foo(:)
     allocate(foo(2))
     foo = [33, 77]
index 0c1c6e2..59022fa 100644 (file)
@@ -18,11 +18,11 @@ program test
   call check(hypot(x4,y4), hypot(1.9_4,-2.1_4))
 
 contains
-  subroutine check_r4 (a, b) ! { dg-warning "Extension: Internal procedure" }
+  subroutine check_r4 (a, b)
     real(kind=4), intent(in) :: a, b
     if (abs(a - b) > 1.e-5 * abs(b)) call abort
   end subroutine
-  subroutine check_r8 (a, b) ! { dg-warning "Extension: Internal procedure" }
+  subroutine check_r8 (a, b)
     real(kind=8), intent(in) :: a, b
     if (abs(a - b) > 1.e-7 * abs(b)) call abort
   end subroutine
index d55af29..535e884 100644 (file)
@@ -16,7 +16,7 @@
 
 contains
 
-  subroutine op_assign_VS_CH (var, exp) ! { dg-warning "Extension: Internal procedure" }
+  subroutine op_assign_VS_CH (var, exp)
     type(varying_string), intent(out) :: var
     character(LEN=*), intent(in)      :: exp
   end subroutine
index e38e654..3cad7df 100644 (file)
@@ -35,12 +35,12 @@ o1%ppc => o2%ppc  ! { dg-error "Type/rank mismatch" }
 
 contains
 
-  real function f1(a,b) ! { dg-warning "Extension: Internal procedure" }
+  real function f1(a,b)
     real,intent(in) :: a,b
     f1 = a + b
   end function
 
-  integer function f2(a,b) ! { dg-warning "Extension: Internal procedure" }
+  integer function f2(a,b)
     real,intent(in) :: a,b
     f2 = a - b
   end function
index a21916b..c000896 100644 (file)
@@ -19,7 +19,7 @@
 
 contains
 
-  elemental subroutine op_assign (str, ch) ! { dg-warning "Extension: Internal procedure" }
+  elemental subroutine op_assign (str, ch)
     type(nf_t), intent(out) :: str
     character(len=*), intent(in) :: ch
   end subroutine
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr50260.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr50260.f90
deleted file mode 100644 (file)
index 10f2618..0000000
+++ /dev/null
@@ -1,48 +0,0 @@
-MODULE cp_parser_methods
-  INTEGER, PARAMETER :: default_string_length=80
-  INTEGER, PARAMETER :: default_path_length=250
-  TYPE ilist_type
-     LOGICAL                              :: in_use
-  END TYPE ilist_type
-  TYPE cp_parser_type
-     CHARACTER(LEN=default_path_length)             :: ifn
-     INTEGER                                        :: icol,icol1,icol2
-     TYPE(ilist_type), POINTER                      :: ilist
-  END TYPE cp_parser_type
-  TYPE cp_error_type
-  END TYPE cp_error_type
-CONTAINS
-  FUNCTION cts(i) RESULT(res)
-    CHARACTER(len=6)                         :: res
-  END FUNCTION cts
-  FUNCTION parser_location(parser,error) RESULT(res)
-    TYPE(cp_parser_type), POINTER            :: parser
-    TYPE(cp_error_type), INTENT(inout)       :: error
-    CHARACTER(len=default_path_length+default_string_length)       :: res
-    LOGICAL                                  :: failure
-    IF (.NOT. failure) THEN
-       res="file:'"//TRIM(parser%ifn)//"' line:"//cts(parser%icol)
-    END IF
-  END FUNCTION parser_location
-  SUBROUTINE parser_get_integer(parser,at_end, error)
-    TYPE(cp_parser_type), POINTER            :: parser
-    TYPE(cp_error_type), INTENT(inout)       :: error
-    LOGICAL                                  :: failure, my_at_end
-    IF (.NOT.failure) THEN
-       IF (.NOT.parser%ilist%in_use) THEN
-          CALL cp_assert("A"// TRIM(parser_location(parser,error)))
-       END IF
-    END IF
-  END SUBROUTINE parser_get_integer
-  SUBROUTINE parser_get_string(parser,at_end,error)
-    TYPE(cp_parser_type), POINTER            :: parser
-    LOGICAL, INTENT(out), OPTIONAL           :: at_end
-    TYPE(cp_error_type), INTENT(inout)       :: error
-    LOGICAL                                  :: failure, my_at_end
-    IF (.NOT.failure) THEN
-       IF (PRESENT(at_end)) THEN
-          CALL cp_assert("s"//TRIM(parser_location(parser,error)))
-       END IF
-    END IF
-  END SUBROUTINE parser_get_string
-END MODULE cp_parser_methods
index 16ac667..09d2581 100644 (file)
@@ -34,9 +34,6 @@ proc prune_gcc_output { text } {
     # Ignore informational notes.
     regsub -all "(^|\n)\[^\n\]*: note: \[^\n\]*" $text "" text
 
-    # Ignore informational notes.
-    regsub -all "(^|\n)\[^\n\]*: note: \[^\n\]*" $text "" text
-
     # Ignore harmless -fpic warnings.
     regsub -all "(^|\n)\[^\n\]*: warning: -f(pic|PIC) ignored for target\[^\n\]*" $text "" text
     regsub -all "(^|\n)\[^\n\]*: warning: -f(pic|PIC)( and -fpic are| is)? not supported\[^\n\]*" $text "" text
index 5d7d970..26724dc 100644 (file)
@@ -2551,13 +2551,6 @@ tree_could_trap_p (tree expr)
        }
       return false;
 
-    case VAR_DECL:
-    case FUNCTION_DECL:
-      /* Assume that accesses to weak vars or functions may trap.  */
-      if (DECL_WEAK (expr))
-        return true;
-      return false;
-
     default:
       return false;
     }
index ddb5fe3..e6d72b9 100644 (file)
@@ -3,5 +3,3 @@ LIB2ADDEH = $(srcdir)/unwind-sjlj.c $(srcdir)/unwind-c.c \
   $(srcdir)/unwind-compat.c
 
 SHLIB_MAPFILES += $(srcdir)/config/ia64/libgcc-glibc.ver
-
-MULTIARCH_DIRNAME = $(call if_multiarch,ia64-linux-gnu)
index 59aa62e..1cf2167 100644 (file)
@@ -89,6 +89,7 @@ eoshift3 (gfc_array_char * const restrict ret,
     {
       int i;
 
+      ret->data = internal_malloc_size (size * arraysize);
       ret->offset = 0;
       ret->dtype = array->dtype;
       for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
index 61a9e8d..c6033d0 100644 (file)
@@ -89,6 +89,7 @@ eoshift3 (gfc_array_char * const restrict ret,
     {
       int i;
 
+      ret->data = internal_malloc_size (size * arraysize);
       ret->offset = 0;
       ret->dtype = array->dtype;
       for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
index aed78ce..7a7b196 100644 (file)
@@ -89,6 +89,7 @@ eoshift3 (gfc_array_char * const restrict ret,
     {
       int i;
 
+      ret->data = internal_malloc_size (size * arraysize);
       ret->offset = 0;
       ret->dtype = array->dtype;
       for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
index e55fcec..c8ecc3a 100644 (file)
@@ -446,7 +446,7 @@ st_flush (st_parameter_filepos *fpp)
       if (u->flags.form == FORM_FORMATTED)
         fbuf_flush (u, u->mode);
 
-      flush_sync (u->s);
+      sflush (u->s);
       unlock_unit (u);
     }
   else
index 31d269e..22150e7 100644 (file)
@@ -203,7 +203,7 @@ flush_i4 (GFC_INTEGER_4 *unit)
       us = find_unit (*unit);
       if (us != NULL)
        {
-         flush_sync (us->s);
+         sflush (us->s);
          unlock_unit (us);
        }
     }
@@ -226,7 +226,7 @@ flush_i8 (GFC_INTEGER_8 *unit)
       us = find_unit (*unit);
       if (us != NULL)
        {
-         flush_sync (us->s);
+         sflush (us->s);
          unlock_unit (us);
        }
     }
index 6cc07f3..8421451 100644 (file)
@@ -1515,23 +1515,6 @@ retry:
   return u;
 }
 
-
-/* Flush dirty data, making sure that OS metadata is updated as
-   well. Note that this is VERY slow on mingw due to committing data
-   to stable storage.  */
-int
-flush_sync (stream * s)
-{
-  if (sflush (s) == -1)
-    return -1;
-#ifdef __MINGW32__
-  if (_commit (((unix_stream *)s)->fd) == -1)
-    return -1;
-#endif
-  return 0;
-}
-
-
 static gfc_unit *
 flush_all_units_1 (gfc_unit *u, int min_unit)
 {
@@ -1548,7 +1531,7 @@ flush_all_units_1 (gfc_unit *u, int min_unit)
          if (__gthread_mutex_trylock (&u->lock))
            return u;
          if (u->s)
-           flush_sync (u->s);
+           sflush (u->s);
          __gthread_mutex_unlock (&u->lock);
        }
       u = u->right;
@@ -1578,7 +1561,7 @@ flush_all_units (void)
 
       if (u->closed == 0)
        {
-         flush_sync (u->s);
+         sflush (u->s);
          __gthread_mutex_lock (&unit_lock);
          __gthread_mutex_unlock (&u->lock);
          (void) predec_waiting_locked (u);
index cbaaa10..52f3e0c 100644 (file)
@@ -165,9 +165,6 @@ internal_proto(inquire_readwrite);
 extern void flush_if_preconnected (stream *);
 internal_proto(flush_if_preconnected);
 
-extern int flush_sync (stream *);
-internal_proto(flush_sync);
-
 extern int stream_isatty (stream *);
 internal_proto(stream_isatty);
 
index 83b1179..1c19575 100644 (file)
@@ -90,6 +90,7 @@ eoshift3 (gfc_array_char * const restrict ret,
     {
       int i;
 
+      ret->data = internal_malloc_size (size * arraysize);
       ret->offset = 0;
       ret->dtype = array->dtype;
       for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
index 4633d96..4dea92b 100644 (file)
    undefined for platform defaults */
 #undef _GLIBCXX_FULLY_DYNAMIC_STRING
 
-/* Define if gthreads types cannot be copy-assigned in C++11. */
-#undef _GLIBCXX_GTHREADS_NO_COPY_ASSIGN_IN_CXX11
-
 /* Define if gthreads library is available. */
 #undef _GLIBCXX_HAS_GTHREADS
 
index a7b3ef4..a292150 100644 (file)
@@ -1865,8 +1865,7 @@ _GLIBCXX_BEGIN_NAMESPACE_VERSION
          for (; __first != __last; ++__first)
            if (__pred(*__first))
              {
-               if (__result1 != __first)
-                 *__result1 = _GLIBCXX_MOVE(*__first);
+               *__result1 = _GLIBCXX_MOVE(*__first);
                ++__result1;
              }
            else
index 51db03e..b0fa36b 100644 (file)
@@ -1,7 +1,6 @@
 // -*- C++ -*-
 
-// Copyright (C) 2005, 2006, 2007, 2009, 2010, 2011
-// Free Software Foundation, Inc.
+// Copyright (C) 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
 //
 // This file is part of the GNU ISO C++ Library.  This library is free
 // software; you can redistribute it and/or modify it under the terms
index b27de9b..26d9e4c 100644 (file)
@@ -1,6 +1,6 @@
 // -*- C++ -*-
 
-// Copyright (C) 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+// Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
 //
 // This file is part of the GNU ISO C++ Library.  This library is free
 // software; you can redistribute it and/or modify it under the terms
index d257c4c..7c72f58 100644 (file)
@@ -156,11 +156,6 @@ LTCOMPILE = $(LIBTOOL) --tag CC --tag disable-shared $(LIBTOOLFLAGS) --mode=comp
            $(glibcxx_lt_pic_flag) $(glibcxx_compiler_shared_flag) \
            $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
 
-nested_exception.lo: nested_exception.cc
-       $(LTCXXCOMPILE) -std=gnu++0x -c $<
-nested_exception.o: nested_exception.cc
-       $(CXXCOMPILE) -std=gnu++0x -c $<
-
 # Libtool notes
 
 # 1) In general, libtool expects an argument such as `--tag=CXX' when
diff --git a/libstdc++-v3/src/functional.cc b/libstdc++-v3/src/functional.cc
deleted file mode 100644 (file)
index 2ab3405..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-// Support for <functional> -*- C++ -*-
-
-// Copyright (C) 2011
-// Free Software Foundation, Inc.
-//
-// This file is part of the GNU ISO C++ Library.  This library is free
-// software; you can redistribute it and/or modify it under the
-// terms of the GNU General Public License as published by the
-// Free Software Foundation; either version 3, or (at your option)
-// any later version.
-
-// This library is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-
-// Under Section 7 of GPL version 3, you are granted additional
-// permissions described in the GCC Runtime Library Exception, version
-// 3.1, as published by the Free Software Foundation.
-
-// You should have received a copy of the GNU General Public License and
-// a copy of the GCC Runtime Library Exception along with this program;
-// see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
-// <http://www.gnu.org/licenses/>.
-
-#include <functional>
-
-namespace std _GLIBCXX_VISIBILITY(default)
-{
-_GLIBCXX_BEGIN_NAMESPACE_VERSION
-
-  bad_function_call::~bad_function_call() throw() = default;
-
-_GLIBCXX_END_NAMESPACE_VERSION
-} // namespace
diff --git a/libstdc++-v3/src/shared_ptr.cc b/libstdc++-v3/src/shared_ptr.cc
deleted file mode 100644 (file)
index 670b7ca..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-// Support for pointer abstractions -*- C++ -*-
-
-// Copyright (C) 2011
-// Free Software Foundation, Inc.
-//
-// This file is part of the GNU ISO C++ Library.  This library is free
-// software; you can redistribute it and/or modify it under the
-// terms of the GNU General Public License as published by the
-// Free Software Foundation; either version 3, or (at your option)
-// any later version.
-
-// This library is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-
-// Under Section 7 of GPL version 3, you are granted additional
-// permissions described in the GCC Runtime Library Exception, version
-// 3.1, as published by the Free Software Foundation.
-
-// You should have received a copy of the GNU General Public License and
-// a copy of the GCC Runtime Library Exception along with this program;
-// see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
-// <http://www.gnu.org/licenses/>.
-
-#include <memory>
-
-namespace std _GLIBCXX_VISIBILITY(default)
-{
-_GLIBCXX_BEGIN_NAMESPACE_VERSION
-
-  bad_weak_ptr::~bad_weak_ptr() throw() = default;
-
-  char const*
-  bad_weak_ptr::what() const throw()  
-  { return "std::bad_weak_ptr"; }
-
-_GLIBCXX_END_NAMESPACE_VERSION
-} // namespace
diff --git a/libstdc++-v3/testsuite/20_util/allocator/51626.cc b/libstdc++-v3/testsuite/20_util/allocator/51626.cc
deleted file mode 100644 (file)
index 951aa18..0000000
+++ /dev/null
@@ -1,66 +0,0 @@
-// Copyright (C) 2011 Free Software Foundation, Inc.
-//
-// This file is part of the GNU ISO C++ Library.  This library is free
-// software; you can redistribute it and/or modify it under the
-// terms of the GNU General Public License as published by the
-// Free Software Foundation; either version 3, or (at your option)
-// any later version.
-
-// This library is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-
-// You should have received a copy of the GNU General Public License along
-// with this library; see the file COPYING3.  If not see
-// <http://www.gnu.org/licenses/>.
-
-// { dg-options "-std=gnu++0x" }
-
-#include <memory>
-#include <vector>
-#include <testsuite_hooks.h>
-
-int count = 0;
-
-template <class T>
-  struct allocator98 : std::allocator<T>
-  {
-    template <class U> struct rebind { typedef allocator98<U> other; };
-
-    allocator98() { }
-
-    template <class U> allocator98(const allocator98<U>&) { };
-
-    void construct(T* p, const T& val)
-    {
-      ++count;
-      std::allocator<T>::construct(p, val);
-    }
-  };
-
-template <class T>
-  struct allocator11 : std::allocator<T>
-  {
-    template <class U> struct rebind { typedef allocator11<U> other; };
-
-    allocator11() { }
-
-    template <class U> allocator11(const allocator11<U>&) { };
-
-    template<typename... Args>
-      void construct(T* p, Args&&... args)
-      {
-       ++count;
-       std::allocator<T>::construct(p, std::forward<Args>(args)...);
-      }
-  };
-
-int main()
-{
-  std::vector< int, allocator98<int> > v98(1);
-  VERIFY( count == 0 );
-
-  std::vector< int, allocator11<int> > v11(1);
-  VERIFY( count == 1 );
-}
index febe6c4..b976de0 100644 (file)
@@ -36,4 +36,4 @@ int main()
 }
 
 // { dg-error "invalid use of incomplete" "" { target *-*-* } 28 } 
-// { dg-error "declaration of" "" { target *-*-* } 64 }
+// { dg-error "declaration of" "" { target *-*-* } 63 }
index 8702d3d..bd5c423 100644 (file)
@@ -36,4 +36,4 @@ int main()
 }
 
 // { dg-error "invalid use of incomplete" "" { target *-*-* } 28 } 
-// { dg-error "declaration of" "" { target *-*-* } 107 }
+// { dg-error "declaration of" "" { target *-*-* } 106 }