diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-01-12 09:15:13 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-05 04:19:01 -0400 |
| commit | 41b8c2073105eeab2b7f6bd000c70a9c7edea71a (patch) | |
| tree | 13e9f6472fa9fda6155a7ed47b2a22c87e7a596d /gcc | |
| parent | 052a00e8943d088aab64140bcda671b9eba54e47 (diff) | |
| download | gcc-41b8c2073105eeab2b7f6bd000c70a9c7edea71a.zip gcc-41b8c2073105eeab2b7f6bd000c70a9c7edea71a.tar.gz gcc-41b8c2073105eeab2b7f6bd000c70a9c7edea71a.tar.bz2 | |
[Ada] Remove commented code
gcc/ada/
* exp_util.adb (Is_Possibly_Unaligned_Object): Remove commented
code.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_util.adb | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 8a25a54..6c79163 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. |