From 41b8c2073105eeab2b7f6bd000c70a9c7edea71a Mon Sep 17 00:00:00 2001
From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Tue, 12 Jan 2021 09:15:13 +0100
Subject: [PATCH] [Ada] Remove commented code
gcc/ada/
* exp_util.adb (Is_Possibly_Unaligned_Object): Remove commented
code.
---
gcc/ada/exp_util.adb | 20 --------------------
1 file changed, 20 deletions(-)
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.
--
GitLab