[Ada] Minor housekeeping work in Create_Standard

2019-12-18  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* cstand.adb (Create_Standard): Remove duplicate line and
	adjust.

From-SVN: r279511

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 75a7c75b19bb8b078635cc5ecea336af52cade28..9900e9ad5f121a0569facca3d4eae2fae5fafda8 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * cstand.adb (Create_Standard): Remove duplicate line and
+       adjust.
+
 2019-12-18  Javier Miranda  <miranda@adacore.com>
 
        * debug.adb: Document -gnatd_K as a reserved switch for the

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index 86ec8f98c4d16a2163da481427e2c7545c829c83..5f3d69f0187a0081cfbf675e9827f0fb2d1a7862 100644 (file)
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -717,6 +717,7 @@ package body CStand is
 
       Build_Signed_Integer_Type
         (Standard_Short_Short_Integer, Standard_Short_Short_Integer_Size);
+      Set_Is_Implementation_Defined (Standard_Short_Short_Integer);
 
       Build_Signed_Integer_Type
         (Standard_Short_Integer, Standard_Short_Integer_Size);
@@ -734,7 +735,6 @@ package body CStand is
 
       Create_Unconstrained_Base_Type
         (Standard_Short_Short_Integer, E_Signed_Integer_Subtype);
-      Set_Is_Implementation_Defined (Standard_Short_Short_Integer);
 
       Create_Unconstrained_Base_Type
         (Standard_Short_Integer, E_Signed_Integer_Subtype);
@@ -747,7 +747,6 @@ package body CStand is
 
       Create_Unconstrained_Base_Type
         (Standard_Long_Long_Integer, E_Signed_Integer_Subtype);
-      Set_Is_Implementation_Defined (Standard_Short_Short_Integer);
 
       Create_Float_Types;