diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-09-06 09:46:21 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-06 11:46:21 +0200 |
| commit | df1771759c3df941c6bbf0fc991f4937ac64bf68 (patch) | |
| tree | 429554c33a252597717aa37c4679a670f6ad5586 /gcc/ada/cstand.adb | |
| parent | b991dd43aec9631d880de87f66ea9383d1c81f1f (diff) | |
| download | gcc-df1771759c3df941c6bbf0fc991f4937ac64bf68.zip gcc-df1771759c3df941c6bbf0fc991f4937ac64bf68.tar.gz gcc-df1771759c3df941c6bbf0fc991f4937ac64bf68.tar.bz2 | |
a-cbprqu.ads, [...]: Mark all entities as Implementation_Defined
2011-09-06 Robert Dewar <dewar@adacore.com>
* a-cbprqu.ads, a-cbsyqu.ads, a-cuprqu.ads, a-cusyqu.ads,
a-intnam-aix.ads, a-intnam-darwin.ads, a-intnam-dummy.ads,
a-intnam-freebsd.ads, a-intnam-hpux.ads, a-intnam-irix.ads,
a-intnam-linux.ads, a-intnam-lynxos.ads, a-intnam-mingw.ads,
a-intnam-solaris.ads, a-intnam-tru64.ads,
a-intnam-vms.ads, a-intnam-vxworks.ads, a-intnam.ads, interfac.ads,
cstand.adb, s-maccod.ads: Mark all entities as Implementation_Defined
* einfo.ads, einfo.adb (Is_Implementation_Defined): New flag
* par-prag.adb: Add dummy entry for pragma Implementation_Defined
* s-rident.ads: Add new restriction No_Implementation_Identifiers
Add new profile No_Implementation_Extensions
* sem_prag.adb: Implement pragma Implementation_Defined Implement
profile No_Implementation_Extensions
* sem_util.adb: Minor reformatting (Set_Entity_With_Style_Check):
Check violation of restriction No_Implementation_Identifiers
* snames.ads-tmpl: Add entries for pragma Implementation_Defined
Add entry for Name_No_Implementation_Extensions
2011-09-06 Robert Dewar <dewar@adacore.com>
* impunit.ads: Minor reformatting.
From-SVN: r178579
Diffstat (limited to 'gcc/ada/cstand.adb')
| -rw-r--r-- | gcc/ada/cstand.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 650b86e..ce46e0f 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -442,8 +442,10 @@ package body CStand is begin -- Create type definition nodes for predefined float types - Copy_Float_Type (Standard_Short_Float, - Find_Back_End_Float_Type ("float")); + Copy_Float_Type + (Standard_Short_Float, + Find_Back_End_Float_Type ("float")); + Set_Is_Implementation_Defined (Standard_Short_Float); Copy_Float_Type (Standard_Float, Standard_Short_Float); @@ -476,6 +478,7 @@ package body CStand is LLF := Standard_Long_Float; end if; + Set_Is_Implementation_Defined (Standard_Long_Long_Float); Copy_Float_Type (Standard_Long_Long_Float, LLF); Append_Elmt (Standard_Long_Long_Float, Predefined_Float_Types); @@ -670,9 +673,11 @@ package body CStand is Build_Signed_Integer_Type (Standard_Long_Long_Integer, Standard_Long_Long_Integer_Size); + Set_Is_Implementation_Defined (Standard_Long_Long_Integer); 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); @@ -685,6 +690,7 @@ 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; |