From 2b0451b77242d8071aa3c2b077deb84c17170223 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 18 Dec 2019 07:14:49 +0000 Subject: [PATCH] [Ada] Minor housekeeping work in Create_Standard 2019-12-18 Eric Botcazou gcc/ada/ * cstand.adb (Create_Standard): Remove duplicate line and adjust. From-SVN: r279511 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/cstand.adb | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 75a7c75..9900e9a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-12-18 Eric Botcazou + + * cstand.adb (Create_Standard): Remove duplicate line and + adjust. + 2019-12-18 Javier Miranda * debug.adb: Document -gnatd_K as a reserved switch for the diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 86ec8f9..5f3d69f 100644 --- 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; -- 2.7.4