diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:10:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:10:28 +0200 |
| commit | 752b81d9c7c4bd1ee5136874ae0852a0127cc373 (patch) | |
| tree | 2ff1bfe09d4c66c1b6f53715c52673ba86c791ef /gcc/ada/back_end.adb | |
| parent | 4b342b91f00c9b8a1768c906edea9407ea18f76c (diff) | |
| download | gcc-752b81d9c7c4bd1ee5136874ae0852a0127cc373.zip gcc-752b81d9c7c4bd1ee5136874ae0852a0127cc373.tar.gz gcc-752b81d9c7c4bd1ee5136874ae0852a0127cc373.tar.bz2 | |
[multiple changes]
2013-04-11 Arnaud Charlet <charlet@adacore.com>
* xgnatugn.adb: Remove obsolete comments.
2013-04-11 Robert Dewar <dewar@adacore.com>
* back_end.ads, back_end.adb: Minor reformatting.
* set_targ.ads, set_targ.adb: New files.
2013-04-11 Hristian Kirtchev <kirtchev@adacore.com>
* sem_case.adb (Check_Against_Predicate): New routine.
(Check_Choices): When the type covered by the list of choices
is a static subtype with a static predicate, check all choices
agains the predicate.
(Issue_Msg): All versions removed.
(Missing_Choice): New routines.
* sem_ch4.adb: Code and comment reformatting.
(Analyze_Case_Expression): Do not check the choices when the case
expression is being preanalyzed and the type of the expression
is a subtype with a static predicate.
(Has_Static_Predicate): New routine.
* sem_ch13.adb: Code and comment reformatting. (Build_Range):
Always build a range even if the low and hi bounds denote the
same value. This is needed by the machinery in Check_Choices.
(Build_Static_Predicate): Always build a range even if the low and
hi bounds denote the same value. This is needed by the machinery
in Check_Choices.
From-SVN: r197789
Diffstat (limited to 'gcc/ada/back_end.adb')
| -rw-r--r-- | gcc/ada/back_end.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index f23230e..fafbbc4 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, 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- -- @@ -347,7 +347,6 @@ package body Back_End is procedure Register_Back_End_Types (Call_Back : Register_Type_Proc) is procedure Enumerate_Modes (Call_Back : Register_Type_Proc); pragma Import (C, Enumerate_Modes, "enumerate_modes"); - begin Enumerate_Modes (Call_Back); end Register_Back_End_Types; |