diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 07:14:08 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 07:14:08 +0000 |
| commit | ed8e5b8319e37114b39dd88e6ed9a4e51e8b894a (patch) | |
| tree | 6ec3d69c3f4021f1aad41adf4ef0be271bd70e6e /gcc/ada/impunit.adb | |
| parent | 217f707ea34d07153cb8441be1af0b756224760f (diff) | |
| download | gcc-ed8e5b8319e37114b39dd88e6ed9a4e51e8b894a.tar.gz | |
2010-10-11 Vincent Celier <celier@adacore.com>
* Makefile.rtl: Add s-multip.
* adaint.c: New function __gnat_number_of_cpus, implemented for Linux,
defaulting to 1 for other platforms.
* adaint.h: New function __gnat_number_of_cpus.
* impunit.adb (Non_Imp_File_Names_12): New file list for Ada 2012,
with a single component "s-multip".
* impunit.ads (Kind_Of_Unit): New enumerated value Ada_12_Unit for Ada
2012.
* rtsfind.ads (RTU_Id): New enumerated value System_Multiprocessors
* s-multip.ads, s-multip.adb: New Ada 2012 package.
* sem_ch10.adb (Analyze_With_Clause): Check also Ada 2012 units.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165274 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/impunit.adb')
| -rw-r--r-- | gcc/ada/impunit.adb | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index 2b6f3192201..6b427f0de1b 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -497,6 +497,15 @@ package body Impunit is "g-zspche", -- GNAT.Wide_Wide_Spelling_Checker "g-zstspl"); -- GNAT.Wide_Wide_String_Split + -------------------- + -- Ada 2012 Units -- + -------------------- + + -- The following units should be used only in Ada 05 mode + + Non_Imp_File_Names_12 : constant File_List := ( + 0 => "s-multip"); -- System.Mutiprocessors + ----------------------- -- Alternative Units -- ----------------------- @@ -596,7 +605,7 @@ package body Impunit is end if; end loop; - -- See if name is in 05 list + -- See if name is in 2005 list for J in Non_Imp_File_Names_05'Range loop if Name_Buffer (1 .. 8) = Non_Imp_File_Names_05 (J) then @@ -604,6 +613,14 @@ package body Impunit is end if; end loop; + -- See if name is in 2012 list + + for J in Non_Imp_File_Names_12'Range loop + if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J) then + return Ada_12_Unit; + end if; + end loop; + -- Only remaining special possibilities are children of System.RPC and -- System.Garlic and special files of the form System.Aux... |