OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_eval.adb: Minor reformatting

Browse Source 
2009-04-10  Thomas Quinot  <quinot@adacore.com>

	* sem_eval.adb: Minor reformatting

From-SVN: r145894
This commit is contained in:
Thomas Quinot 2009-04-10 13:10:46 +00:00 committed by Arnaud Charlet
parent b62a90f259
commit 3996951a3e
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2009-04-10 Thomas Quinot <quinot@adacore.com>
* sem_eval.adb: Minor reformatting
2009-04-10 Thomas Quinot <quinot@adacore.com>
* snames.h, snames.ads, snames.adb: Remove files, now generated from

20
gcc/ada/sem_eval.adb
View File

@ -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);