From: Piotr Trojanek Date: Thu, 27 Feb 2020 16:48:42 +0000 (+0100) Subject: [Ada] Remove unreferenced GNATprove utility routine Get_Low_Bound X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bbfd4f21c04a7e41c68e1841fcbd97853a94eb40;p=gcc.git [Ada] Remove unreferenced GNATprove utility routine Get_Low_Bound 2020-06-10 Piotr Trojanek gcc/ada/ * sem_aux.ads, sem_aux.adb (Get_Low_Bound): Remove. --- diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 63e94b4cbb1..0cd538ae9d5 100644 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -485,19 +485,6 @@ package body Sem_Aux is return Id; end Get_Called_Entity; - ------------------- - -- Get_Low_Bound -- - ------------------- - - function Get_Low_Bound (E : Entity_Id) return Node_Id is - begin - if Ekind (E) = E_String_Literal_Subtype then - return String_Literal_Low_Bound (E); - else - return Type_Low_Bound (E); - end if; - end Get_Low_Bound; - ------------------ -- Get_Rep_Item -- ------------------ diff --git a/gcc/ada/sem_aux.ads b/gcc/ada/sem_aux.ads index 6f0d75e6d58..41ce3f0aad4 100644 --- a/gcc/ada/sem_aux.ads +++ b/gcc/ada/sem_aux.ads @@ -165,9 +165,6 @@ package Sem_Aux is -- Obtain the entity of the entry, operator, or subprogram being invoked -- by call Call. - function Get_Low_Bound (E : Entity_Id) return Node_Id; - -- For an index subtype or string literal subtype, returns its low bound - function Get_Unary_Nkind (Op : Entity_Id) return Node_Kind; -- Op must be an entity with an Ekind of E_Operator. This function returns -- the Nkind value that would be used to construct a unary operator node