aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/einfo-utils.adb
diff options
context:
space:
mode:
authorBob Duff <duff@adacore.com>2021-06-04 08:13:23 -0400
committerPierre-Marie de Rodat <derodat@adacore.com>2021-07-08 13:34:23 +0000
commit8de68eb37c7275735a8deb78f44fe6535b9462ec (patch)
tree7e9051ca7a37b9839d585862f2ae50ff47501f3d /gcc/ada/einfo-utils.adb
parent4d743233ad29c03b5c65cfaf802d7c91f7fcc32c (diff)
downloadgcc-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/einfo-utils.adb')
-rw-r--r--gcc/ada/einfo-utils.adb40
1 files changed, 0 insertions, 40 deletions
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb
index b2d8a84..21d7bfb 100644
--- a/gcc/ada/einfo-utils.adb
+++ b/gcc/ada/einfo-utils.adb
@@ -597,46 +597,6 @@ package body Einfo.Utils is
and then not Is_Generic_Type (E);
end Known_Static_RM_Size;
- function Unknown_Alignment (E : Entity_Id) return B is
- begin
- return not Known_Alignment (E);
- end Unknown_Alignment;
-
- function Unknown_Component_Bit_Offset (E : Entity_Id) return B is
- begin
- return not Known_Component_Bit_Offset (E);
- end Unknown_Component_Bit_Offset;
-
- function Unknown_Component_Size (E : Entity_Id) return B is
- begin
- return not Known_Component_Size (E);
- end Unknown_Component_Size;
-
- function Unknown_Esize (E : Entity_Id) return B is
- begin
- return not Known_Esize (E);
- end Unknown_Esize;
-
- function Unknown_Normalized_First_Bit (E : Entity_Id) return B is
- begin
- return not Known_Normalized_First_Bit (E);
- end Unknown_Normalized_First_Bit;
-
- function Unknown_Normalized_Position (E : Entity_Id) return B is
- begin
- return not Known_Normalized_Position (E);
- end Unknown_Normalized_Position;
-
- function Unknown_Normalized_Position_Max (E : Entity_Id) return B is
- begin
- return not Known_Normalized_Position_Max (E);
- end Unknown_Normalized_Position_Max;
-
- function Unknown_RM_Size (E : Entity_Id) return B is
- begin
- return not Known_RM_Size (E);
- end Unknown_RM_Size;
-
--------------------
-- Address_Clause --
--------------------