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 75901bb8eff0214abc2bd547805e9541de465287..e56ec5be0259309c7cf6a2ef4b0b3ea27d48b9d1 100644 (file)
--- 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