diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-05-21 13:26:53 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:26:53 +0200 |
| commit | 0688dac82602c0763e0459f07b3cb4cc8f3ecba4 (patch) | |
| tree | 1f2c8d0e503e716f8065664c74fc870db490da29 /gcc/ada/rtsfind.ads | |
| parent | ee6208f2d5fb8527b4f2504103e7b884f28660dc (diff) | |
| download | gcc-0688dac82602c0763e0459f07b3cb4cc8f3ecba4.zip gcc-0688dac82602c0763e0459f07b3cb4cc8f3ecba4.tar.gz gcc-0688dac82602c0763e0459f07b3cb4cc8f3ecba4.tar.bz2 | |
layout.adb: Minor reformatting.
2014-05-21 Robert Dewar <dewar@adacore.com>
* layout.adb: Minor reformatting.
* sem_prag.adb (Analyze_Pragma, case Inspection_Point): Call
dummy procedure ip.
2014-05-21 Robert Dewar <dewar@adacore.com>
* restrict.ads (Implementation_Restriction): Add entry for
No_Fixed_IO.
* rtsfind.ads: Add entries for Fixed_IO and Decimal_IO in
Ada.[Wide_[Wide_]Text_IO.
* s-rident.ads (Restriction_Id): Add entry for No_Fixed_IO.
* sem_attr.adb (Analyze_Attribute): Disallow fixed point types
for Img, Image, Value, Wide_Image, Wide_Value, Wide_Wide_Image,
Wide_Wide_Value if restriction No_Fixed_IO is set.
* sem_util.adb (Set_Entity_Checks): Check restriction No_Fixed_IO.
From-SVN: r210710
Diffstat (limited to 'gcc/ada/rtsfind.ads')
| -rw-r--r-- | gcc/ada/rtsfind.ads | 28 |
1 files changed, 25 insertions, 3 deletions
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index 5fcfb31..1f50db3 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -108,8 +108,9 @@ package Rtsfind is -- ambiguities). type RTU_Id is ( - -- Runtime packages, for list of accessible entities in each - -- package see declarations in the runtime entity table below. + + -- Runtime packages, for list of accessible entities in each package, + -- see declarations in the runtime entity table below. RTU_Null, -- Used as a null entry (will cause an error if referenced) @@ -132,6 +133,9 @@ package Rtsfind is Ada_Tags, Ada_Task_Identification, Ada_Task_Termination, + Ada_Text_IO, + Ada_Wide_Text_IO, + Ada_Wide_Wide_Text_IO, -- Children of Ada.Calendar @@ -701,6 +705,15 @@ package Rtsfind is RE_Current_Task, -- Ada.Task_Identification RO_AT_Task_Id, -- Ada.Task_Identification + RE_Decimal_IO, -- Ada.Text_IO + RE_Fixed_IO, -- Ada.Text_IO + + RO_WT_Decimal_IO, -- Ada.Wide_Text_IO + RO_WT_Fixed_IO, -- Ada.Wide_Text_IO + + RO_WW_Decimal_IO, -- Ada.Wide_Wide_Text_IO + RO_WW_Fixed_IO, -- Ada.Wide_Wide_Text_IO + RE_Integer_8, -- Interfaces RE_Integer_16, -- Interfaces RE_Integer_32, -- Interfaces @@ -1973,6 +1986,15 @@ package Rtsfind is RE_Current_Task => Ada_Task_Identification, RO_AT_Task_Id => Ada_Task_Identification, + RE_Decimal_IO => Ada_Text_IO, + RE_Fixed_IO => Ada_Text_IO, + + RO_WT_Decimal_IO => Ada_Wide_Text_IO, + RO_WT_Fixed_IO => Ada_Wide_Text_IO, + + RO_WW_Decimal_IO => Ada_Wide_Wide_Text_IO, + RO_WW_Fixed_IO => Ada_Wide_Wide_Text_IO, + RE_Integer_8 => Interfaces, RE_Integer_16 => Interfaces, RE_Integer_32 => Interfaces, |