diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-11 13:10:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-11 13:10:28 +0000 |
| commit | 726fd56ab05a9f7a2588479401c0af82495d5e42 (patch) | |
| tree | 2ff1bfe09d4c66c1b6f53715c52673ba86c791ef /gcc/ada/back_end.adb | |
| parent | 4d4b0e0dfdc807fe493997194065655ecfb3e01f (diff) | |
| download | gcc-726fd56ab05a9f7a2588479401c0af82495d5e42.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@197789 138bc75d-0d04-0410-961f-82ee72b054a4
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 f23230ecf9d..fafbbc4dc2f 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; |