diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 10:42:59 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 10:42:59 +0100 |
| commit | d56e7acd6325f983f5a675c187bc465ea628502e (patch) | |
| tree | fc80c363bc049b80c70eb9361b7ed4757c282f27 /gcc/ada/sem_case.adb | |
| parent | f1b20d2758a7cf6d92fabd50fc71bc8fedba7da2 (diff) | |
| download | gcc-d56e7acd6325f983f5a675c187bc465ea628502e.zip gcc-d56e7acd6325f983f5a675c187bc465ea628502e.tar.gz gcc-d56e7acd6325f983f5a675c187bc465ea628502e.tar.bz2 | |
[multiple changes]
2009-11-30 Robert Dewar <dewar@adacore.com>
* bcheck.adb, gnatlink.adb, make.adb, makeutl.adb, osint.adb,
osint.ads, prj-ext.adb, sem_case.adb: Minor reformatting
* g-alleve.adb: Minor code reorganization (use conditional expressions)
2009-11-30 Matthew Heaney <heaney@adacore.com>
* a-crbtgo.adb (Delete_Fixup): Changed always-true predicates to
assertions.
2009-11-30 Thomas Quinot <quinot@adacore.com>
* a-tasatt.adb, s-crtl.ads, s-taprop-dummy.adb (System.CRTL.malloc32,
System.CRTL.realloc32): Remove VMS-specific routines.
(Ada.Task_Attributes.Reference): Remove unreachable code.
(System.Task_Primitives.Operations.Initialize, dummy version):
Use plain Program_Error rather than call to
System.Error_Reporting.Shutdown.
From-SVN: r154762
Diffstat (limited to 'gcc/ada/sem_case.adb')
| -rw-r--r-- | gcc/ada/sem_case.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index 840214d..da260f3 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -239,8 +239,9 @@ package body Sem_Case is " alternatives must cover base type", Expr, Expr); else - Error_Msg_N ("subtype of expression is not static," & - " alternatives must cover base type!", Expr); + Error_Msg_N + ("subtype of expression is not static," + & " alternatives must cover base type!", Expr); end if; -- Otherwise the expression is not static, even if the bounds of the @@ -249,8 +250,8 @@ package body Sem_Case is elsif not Is_Entity_Name (Expr) then Error_Msg_N - ("subtype of expression is not static, " & - "alternatives must cover base type!", Expr); + ("subtype of expression is not static, " + & "alternatives must cover base type!", Expr); end if; end Explain_Non_Static_Bound; |