From d56e7acd6325f983f5a675c187bc465ea628502e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 30 Nov 2009 10:42:59 +0100 Subject: [multiple changes] 2009-11-30 Robert Dewar * 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 * a-crbtgo.adb (Delete_Fixup): Changed always-true predicates to assertions. 2009-11-30 Thomas Quinot * 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 --- gcc/ada/sem_case.adb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sem_case.adb') 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; -- cgit v1.1