From 8de68eb37c7275735a8deb78f44fe6535b9462ec Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Fri, 4 Jun 2021 08:13:23 -0400 Subject: [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. --- gcc/ada/einfo-utils.adb | 40 ---------------------------------------- 1 file changed, 40 deletions(-) (limited to 'gcc/ada/einfo-utils.adb') 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 -- -------------------- -- cgit v1.1