From: Ronan Desplanques <desplanques@adacore.com>
Date: Thu, 27 Mar 2025 13:46:00 +0000 (+0100)
Subject: ada: Remove duplicate setter call
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=815490f1d3ab695a9afda54743a5df0465c97773;p=thirdparty%2Fgcc.git

ada: Remove duplicate setter call

gcc/ada/ChangeLog:

	* sem_ch3.adb (Build_Derived_Numeric_Type): Remove duplicate call.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 75901bb8eff..e56ec5be025 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -8133,9 +8133,6 @@ package body Sem_Ch3 is
          Set_Non_Binary_Modulus
            (Implicit_Base, Non_Binary_Modulus (Parent_Base));
 
-         Set_Is_Known_Valid
-           (Implicit_Base, Is_Known_Valid (Parent_Base));
-
       elsif Is_Floating_Point_Type (Parent_Type) then
 
          --  Digits of base type is always copied from the digits value of