[Ada] Ada2020: Reduction expressions

This patch dismantles the prototype implementation of the first proposal
for Reduction expressions, one of the important potentially parallel
constructs for Ada2020. The ARG is going in a different direction with
a simpler syntax.

2018-05-22  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* exp_ch4.ads, exp_ch4.adb, exp_util.adb, expander.adb: Remove mention
	of N_Reduction_Expression and N_Reduction_Expression_Parameter.
	* par-ch4.adb: Remove parsing routines for reduction expressions.
	* sem.adb, sinfo.ads, sinfo.adb, sem_ch4.ads, sem_ch4.adb, sem_res.adb,
	sem_spark.adb, sprint.adb: Remove analysis routines for reduction
	expressions.

From-SVN: r260524

1 files changed, 0 insertions, 22 deletions

diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index ce5721b..f19629c 100644
--- a/gcc/ada/sprint.adb
+++ b/gcc/ada/sprint.adb
@@ -3110,28 +3110,6 @@ package body Sprint is
             Sprint_Indented_List (Component_Clauses (Node));
             Write_Indent_Str ("end record;");
 
-         when N_Reduction_Expression =>
-            Write_Str (" for");
-
-            if Present (Iterator_Specification (Node)) then
-               Sprint_Node (Iterator_Specification (Node));
-            else
-               Sprint_Node (Loop_Parameter_Specification (Node));
-            end if;
-
-            Write_Str (" => ");
-            Sprint_Node (Expression (Node));
-            null;
-
-         when N_Reduction_Expression_Parameter =>
-            Write_Char ('<');
-
-            if Present (Expression (Node)) then
-               Sprint_Node (Expression (Node));
-            end if;
-
-            Write_Char ('>');
-
          when N_Reference =>
             Sprint_Node (Prefix (Node));
             Write_Str_With_Col_Check_Sloc ("'reference");