From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Tue, 12 Jan 2021 08:15:13 +0000 (+0100)
Subject: [Ada] Remove commented code
X-Git-Tag: basepoints/gcc-13~7822
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=41b8c2073105eeab2b7f6bd000c70a9c7edea71a;p=thirdparty%2Fgcc.git

[Ada] Remove commented code

gcc/ada/

	* exp_util.adb (Is_Possibly_Unaligned_Object): Remove commented
	code.
---

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 8a25a547c4b3..6c7916398945 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -8733,26 +8733,6 @@ package body Exp_Util is
                end if;
             end if;
 
-            --  The following code is historical, it used to be present but it
-            --  is too cautious, because the front-end does not know the proper
-            --  default alignments for the target. Also, if the alignment is
-            --  not known, the front end can't know in any case. If a copy is
-            --  needed, the back-end will take care of it. This whole section
-            --  including this comment can be removed later ???
-
-            --  If the component reference is for a record that has a specified
-            --  alignment, and we either know it is too small, or cannot tell,
-            --  then the component may be unaligned.
-
-            --  What is the following commented out code ???
-
-            --  if Known_Alignment (Etype (P))
-            --    and then Alignment (Etype (P)) < Ttypes.Maximum_Alignment
-            --    and then M > Alignment (Etype (P))
-            --  then
-            --     return True;
-            --  end if;
-
             --  Case of component clause present which may specify an
             --  unaligned position.