re PR middle-end/53590 (compiler fails to generate SIMD instruction for FP division)

	PR middle-end/53590
	* function.c (allocate_struct_function): Revert r188667 change.

From-SVN: r212426

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 678e367b11f440b78f514a9fd67d9e6964293c99..53152a78b291241db8730b0ed4b21358b56fed36 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-10  Eric Botcazou  <ebotcazou@adacore.com>
+
+       PR middle-end/53590
+       * function.c (allocate_struct_function): Revert r188667 change.
+
 2014-07-04  Jakub Jelinek  <jakub@redhat.com>
 
        PR tree-optimization/61684

diff --git a/gcc/function.c b/gcc/function.c
index c96e6e2ece31c25751fb70c6ddd24037be3c9b48..76baf30798429a8f8f4d4ceb22575604c8f5dcf5 100644 (file)
--- a/gcc/function.c
+++ b/gcc/function.c
@@ -4523,6 +4523,7 @@ allocate_struct_function (tree fndecl, bool abstract_p)
       /* ??? This could be set on a per-function basis by the front-end
          but is this worth the hassle?  */
       cfun->can_throw_non_call_exceptions = flag_non_call_exceptions;
+      cfun->can_delete_dead_exceptions = flag_delete_dead_exceptions;
     }
 }
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 212d42a0923ae73d4620c432122522491dc93520..c35517d0671e8dffcaf1cd615efd183051d764c4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-07-10  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/opt39.adb: New test.
+
 2014-07-08  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/61459

diff --git a/gcc/testsuite/gnat.dg/opt39.adb b/gcc/testsuite/gnat.dg/opt39.adb
new file mode 100644 (file)
index 0000000..a00cac7
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/opt39.adb
@@ -0,0 +1,31 @@
+-- { dg-do compile }
+-- { dg-options "-O2 -fno-inline -fdump-tree-optimized" }
+
+procedure Opt39 (I : Integer) is
+
+  type Rec is record
+    I1 : Integer;
+    I2 : Integer;
+    I3 : Integer;
+    I4 : Integer;
+    I5 : Integer;
+  end record;
+
+  procedure Set (A : access Rec; I : Integer) is
+    Tmp : Rec := A.all;
+  begin
+    Tmp.I1 := I;
+    A.all := Tmp;
+  end;
+
+  R : aliased Rec;
+
+begin
+  Set (R'Access, I);
+  if R.I1 /= I then
+    raise Program_Error;
+  end if;
+end;
+
+-- { dg-final { scan-tree-dump-times "MEM" 1 "optimized" } }
+-- { dg-final { cleanup-tree-dump "optimized" } }