diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-25 15:50:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-25 15:50:29 +0200 |
| commit | 1e194575d06f78b82061218f6405c5e8a21ce085 (patch) | |
| tree | b40bec5a75f1448c3dd1c6683682b9d8c1544311 /gcc/ada/uname.adb | |
| parent | 89ff4f167f64c73b46ebc30221119b76887c1b77 (diff) | |
| download | gcc-1e194575d06f78b82061218f6405c5e8a21ce085.zip gcc-1e194575d06f78b82061218f6405c5e8a21ce085.tar.gz gcc-1e194575d06f78b82061218f6405c5e8a21ce085.tar.bz2 | |
[multiple changes]
2010-10-25 Matthew Heaney <heaney@adacore.com>
* Makefile.rtl, impunit.adb: Added a-cobove (bounded vector container)
to lists.
* a-contai.ads: Added declaration of Capacity_Error exception.
* a-cobove.ads, a-cobove.adb: New files.
2010-10-25 Thomas Quinot <quinot@adacore.com>
* uname.adb: Revert previous change, no longer needed after change
in par-ch10.adb.
2010-10-25 Thomas Quinot <quinot@adacore.com>
* scos.ads: Minor comment fix.
2010-10-25 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Analyze_Assignment_Statement): Check dangerous order
dependence.
* sem_ch6.adb (Analyze_Procedure_Call_Statement): Ditto.
* sem_res.adb (Analyze_Actuals): Add actual to list of actuals for
current construct, for subsequent order dependence checking.
(Resolve): Check order dependence on expressions that are not
subexpressions.
* sem_util.adb (Check_Order_Dependence): Code cleanup, to correspond
to latest version of AI05-144-2.
* sem_warn.adb (Warn_On_Overlapping_Actuals): Code cleanup.
2010-10-25 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Build_Static_Predicate): Moved out of
Build_Predicate_Function.
(Build_Static_Predicate): Complet rewrite for more general predicates
From-SVN: r165917
Diffstat (limited to 'gcc/ada/uname.adb')
| -rw-r--r-- | gcc/ada/uname.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/uname.adb b/gcc/ada/uname.adb index 8ddc5a6..9628867 100644 --- a/gcc/ada/uname.adb +++ b/gcc/ada/uname.adb @@ -225,10 +225,10 @@ package body Uname is Kind : constant Node_Kind := Nkind (Node); begin - -- Bail out on error node (guard against parse error) + -- Just ignore an error node (someone else will give a message) if Node = Error then - raise Program_Error; + return; -- Otherwise see what kind of node we have |