aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/scans.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-10-19 14:29:25 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-10-19 14:29:25 +0200
commita961aa79587ca417a9920cd2ba4df4d3144fd26d (patch)
treefbc3350cd46472344fa50199f9069aaab0f8bfc6 /gcc/ada/scans.adb
parent11c260d7cd8c3aaee5502f8d5ff192327b2a904d (diff)
downloadgcc-a961aa79587ca417a9920cd2ba4df4d3144fd26d.zip
gcc-a961aa79587ca417a9920cd2ba4df4d3144fd26d.tar.gz
gcc-a961aa79587ca417a9920cd2ba4df4d3144fd26d.tar.bz2
[multiple changes]
2010-10-19 Ed Schonberg <schonberg@adacore.com> * exp_ch4.adb, exp_ch4.ads (Expand_Quantified_Expression): New procedure * exp_util.adb (Insert_Actions): Include Quantified_Expression. * expander.adb: Call Expand_Qualified_Expression. * par.adb: New procedure P_Quantified_Expression. Make P_Loop_Parameter_Specification global for use in quantified expressions. * par-ch3.adb (P_Subtype_Mark_Resync): Allow "some" as an identifier if version < Ada2012. * par-ch4.adb: New procedure P_Quantified_Expression. * par-ch5.adb: P_Loop_Parameter_Specification is now global. * scans.adb, scans.ads: Introduce token Some. For now leave as unreserved. * scn.adb (Scan_Reserved_Identifier): For earlier versions of Ada, treat Some as a regular identifier. * sem.adb: Call Analyze_Quantified_Expression. * sem_ch4.adb, sem_ch4.ads: New procedure Analyze_Quantified_Expression. * sem_ch5.adb, sem_ch5.ads: Analyze_Iteration_Scheme is public, for use in quantified expressions. * sem_res.adb: New procedure Resolve_Qualified_Expression. * sinfo.adb, sinfo.ads: New node N_Quantified_Expression * snames.ads-tmpl: New name Some. * sprint.adb: Output quantified_expression. 2010-10-19 Robert Dewar <dewar@adacore.com> * a-exexda.adb: Minor reformatting Minor code reorganization. From-SVN: r165698
Diffstat (limited to 'gcc/ada/scans.adb')
-rw-r--r--gcc/ada/scans.adb9
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/scans.adb b/gcc/ada/scans.adb
index 3be0eb6..7f6b808 100644
--- a/gcc/ada/scans.adb
+++ b/gcc/ada/scans.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2010, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -118,6 +118,13 @@ package body Scans is
Set_Reserved (Name_Reverse, Tok_Reverse);
Set_Reserved (Name_Select, Tok_Select);
Set_Reserved (Name_Separate, Tok_Separate);
+
+ -- We choose to make Some into a non-reserved word, so it is handled
+ -- like a regular identifier in most contexts. Uncomment the following
+ -- line if a pedantic Ada2012 mode is required.
+
+ -- Set_Reserved (Name_Some, Tok_Some);
+
Set_Reserved (Name_Subtype, Tok_Subtype);
Set_Reserved (Name_Tagged, Tok_Tagged);
Set_Reserved (Name_Task, Tok_Task);