From 0cc1540d55a2e7ff710588b78c0b6efc8dc6a51f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 12 May 2015 10:08:10 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r223037 --- gcc/ada/exp_util.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 5ae0a2113f5..1bafe663fe1 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -8133,7 +8133,7 @@ package body Exp_Util is begin -- If the expression is the RHS of an assignment or object declaration - -- we are always OK because there will always be a target. + -- we are always OK because there will always be a target. -- Object renaming declarations, (generated for view conversions of -- actuals in inlined calls), like object declarations, provide an @@ -8174,8 +8174,8 @@ package body Exp_Util is Otyp := Entity (Subtype_Mark (Exp)); end if; - -- The input type always comes from the expression, and we assume - -- this is indeed always analyzed, so we can simply get the Etype. + -- The input type always comes from the expression, and we assume this + -- is indeed always analyzed, so we can simply get the Etype. Ityp := Etype (Expression (Exp)); @@ -8246,8 +8246,8 @@ package body Exp_Util is then return True; - -- If either type is tagged, then we know the alignment is OK so - -- Gigi will be able to use pointer punning. + -- If either type is tagged, then we know the alignment is OK so Gigi + -- will be able to use pointer punning. elsif Is_Tagged_Type (Otyp) or else Is_Tagged_Type (Ityp) then return True; -- 2.30.2