diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-10 16:39:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-10 16:39:14 +0200 |
| commit | 32a21096039a8a589a9dea3c977f9d18a37a39be (patch) | |
| tree | a7a0ba9c28357303479235bbe2ff1134de286392 /gcc/ada/sprint.adb | |
| parent | 8f8194710d4d0badd94046d26cbe61cee1a01163 (diff) | |
| download | gcc-32a21096039a8a589a9dea3c977f9d18a37a39be.zip gcc-32a21096039a8a589a9dea3c977f9d18a37a39be.tar.gz gcc-32a21096039a8a589a9dea3c977f9d18a37a39be.tar.bz2 | |
[multiple changes]
2014-10-10 Robert Dewar <dewar@adacore.com>
* errout.adb (Adjust_Name_Case): New procedure.
(Set_Msg_Node): Use Adjust_Name_Case.
* errout.ads (Adjust_Name_Case): New procedure.
* exp_intr.adb (Add_Source_Info): Minor code reorganization
(use Ekind_In).
(Write_Entity_Name): Use Errout.Adjust_Name_Case.
* sem_prag.adb (Is_Non_Significant_Pragma_Reference): Review
and fix up entries in Sig_Flags, and correct logical errors in
function itself.
* sprint.adb (Sprint_Node_Actual): Properly print string for
raise statement.
2014-10-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Object_Declaration): For an object of an
anonymous array type with delayed aspects, defer freezing of
type until object itself is frozen.
* freeze.adb (Freeze_Entity): When freezing an object of an
anonymous array type with delayed aspects, remove freeze node of
object after freezing type, to prevent out-of-order elaboration
in the back-end. The initialization call for the object has
already been constructed when expanding the object declaration.
From-SVN: r216089
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 3eb4869..8f47053 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -3000,6 +3000,12 @@ package body Sprint is when N_Raise_Statement => Write_Indent_Str_Sloc ("raise "); Sprint_Node (Name (Node)); + + if Present (Expression (Node)) then + Write_Str_With_Col_Check_Sloc (" with "); + Sprint_Node (Expression (Node)); + end if; + Write_Char (';'); when N_Range => |