diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-22 14:44:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-22 14:44:16 +0000 |
| commit | a3240f1130eff9dd5c2b2674ef955464d3444d4a (patch) | |
| tree | 51ef9fba1b2786bfc48f6f17f974ddd1c84a951c /gcc/ada/uname.adb | |
| parent | c19525ce874beb2e799538a9ef3737c5b97baf15 (diff) | |
| download | gcc-a3240f1130eff9dd5c2b2674ef955464d3444d4a.tar.gz | |
2010-10-22 Thomas Quinot <quinot@adacore.com>
* uname.adb (Get_Unit_Name.Add_Node_Name): If encountering an error
node in the unit name, propagate Program_Error to guard against
cascaded errors.
2010-10-22 Javier Miranda <miranda@adacore.com>
* sem_ch8.adb (Find_Selected_Component): Do not generate a subtype for
selected components of dispatch table wrappers.
2010-10-22 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb (Make_Initialize_Protection): A protected type that
implements an interface must be treated as if it has entries, to
support dispatching select statements.
2010-10-22 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, sem_ch3.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165831 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/uname.adb')
| -rw-r--r-- | gcc/ada/uname.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/uname.adb b/gcc/ada/uname.adb index 17d99ac60e4..8ddc5a6c01d 100644 --- a/gcc/ada/uname.adb +++ b/gcc/ada/uname.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- -- @@ -225,10 +225,10 @@ package body Uname is Kind : constant Node_Kind := Nkind (Node); begin - -- Just ignore an error node (someone else will give a message) + -- Bail out on error node (guard against parse error) if Node = Error then - return; + raise Program_Error; -- Otherwise see what kind of node we have |