From 3996951a3e5a105d1af6e41c09b1bfda72bd96b7 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Fri, 10 Apr 2009 13:10:46 +0000 Subject: sem_eval.adb: Minor reformatting 2009-04-10 Thomas Quinot * sem_eval.adb: Minor reformatting From-SVN: r145894 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_eval.adb | 20 ++++++++------------ 2 files changed, 12 insertions(+), 12 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2203164..0e93d6d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2009-04-10 Thomas Quinot + * sem_eval.adb: Minor reformatting + +2009-04-10 Thomas Quinot + * snames.h, snames.ads, snames.adb: Remove files, now generated from templates. diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 62772e3..2edcd0e 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -1489,8 +1489,8 @@ package body Sem_Eval is -- Eval_Concatenation -- ------------------------ - -- Concatenation is a static function, so the result is static if - -- both operands are static (RM 4.9(7), 4.9(21)). + -- Concatenation is a static function, so the result is static if both + -- operands are static (RM 4.9(7), 4.9(21)). procedure Eval_Concatenation (N : Node_Id) is Left : constant Node_Id := Left_Opnd (N); @@ -1500,8 +1500,8 @@ package body Sem_Eval is Fold : Boolean; begin - -- Concatenation is never static in Ada 83, so if Ada 83 - -- check operand non-static context + -- Concatenation is never static in Ada 83, so if Ada 83 check operand + -- non-static context. if Ada_Version = Ada_83 and then Comes_From_Source (N) @@ -1520,20 +1520,16 @@ package body Sem_Eval is Test_Expression_Is_Foldable (N, Left, Right, Stat, Fold); - if Is_Standard_Character_Type (C_Typ) - and then Fold - then - null; - else + if not (Is_Standard_Character_Type (C_Typ) and then Fold) then Set_Is_Static_Expression (N, False); return; end if; -- Compile time string concatenation - -- ??? Note that operands that are aggregates can be marked as - -- static, so we should attempt at a later stage to fold - -- concatenations with such aggregates. + -- ??? Note that operands that are aggregates can be marked as static, + -- so we should attempt at a later stage to fold concatenations with + -- such aggregates. declare Left_Str : constant Node_Id := Get_String_Val (Left); -- cgit v1.1