diff options
| author | Bob Duff <duff@adacore.com> | 2021-06-04 08:13:23 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-08 13:34:23 +0000 |
| commit | 8de68eb37c7275735a8deb78f44fe6535b9462ec (patch) | |
| tree | 7e9051ca7a37b9839d585862f2ae50ff47501f3d /gcc/ada/exp_util.adb | |
| parent | 4d743233ad29c03b5c65cfaf802d7c91f7fcc32c (diff) | |
| download | gcc-8de68eb37c7275735a8deb78f44fe6535b9462ec.zip gcc-8de68eb37c7275735a8deb78f44fe6535b9462ec.tar.gz gcc-8de68eb37c7275735a8deb78f44fe6535b9462ec.tar.bz2 | |
[Ada] Remove Unknown_ functions
gcc/ada/
* einfo-utils.ads, einfo-utils.adb (Unknown_Alignment,
Unknown_Component_Bit_Offset, Unknown_Component_Size,
Unknown_Esize, Unknown_Normalized_First_Bit,
Unknown_Normalized_Position, Unknown_Normalized_Position_Max,
Unknown_RM_Size): Remove these functions.
* exp_pakd.adb, exp_util.adb, fe.h, freeze.adb, layout.adb,
repinfo.adb, sem_ch13.adb, sem_ch3.adb, sem_util.adb: Remove
calls to these functions; do "not Known_..." instead.
* gcc-interface/decl.c, gcc-interface/trans.c
(Unknown_Alignment, Unknown_Component_Size, Unknown_Esize,
Unknown_RM_Size): Remove calls to these functions; do
"!Known_..." instead.
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 2ff1144..2584041 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -9048,7 +9048,7 @@ package body Exp_Util is if Target_Strict_Alignment and then Known_Alignment (Ptyp) - and then (Unknown_Alignment (Styp) + and then (not Known_Alignment (Styp) or else Alignment (Styp) > Alignment (Ptyp)) then return True; @@ -9072,7 +9072,7 @@ package body Exp_Util is begin if Present (Component_Clause (Field)) and then - (Unknown_Alignment (Styp) + (not Known_Alignment (Styp) or else (Component_Bit_Offset (Field) mod (System_Storage_Unit * Alignment (Styp))) /= 0) |