From 9df64b72bb887ca8802df1a2731403d219bebb5f Mon Sep 17 00:00:00 2001 From: Ronan Desplanques Date: Fri, 3 Mar 2023 12:33:21 +0100 Subject: [PATCH] ada: Maximize use of existing constant This patch does not change the behavior of the compiler and is intended as a readability improvement. gcc/ada/ * sem_ch3.adb (Replace_Type): Use existing constant wherever possible. --- gcc/ada/sem_ch3.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index c8af679b404..0bddfa84463 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -15994,7 +15994,7 @@ package body Sem_Ch3 is -- of the parent, and we can also use it rather than its base, -- which can lead to more efficient code. - if Etype (Id) = Parent_Type then + if Id_Type = Parent_Type then if Is_Scalar_Type (Parent_Type) and then Subtypes_Statically_Compatible (Parent_Type, Derived_Type) @@ -16019,7 +16019,7 @@ package body Sem_Ch3 is end if; else - Set_Etype (New_Id, Etype (Id)); + Set_Etype (New_Id, Id_Type); end if; end Replace_Type; -- 2.43.0