diff options
author | Pascal Obry <obry@adacore.com> | 2008-03-26 08:40:18 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:40:18 +0100 |
commit | f88ecba0bc8dca1af95ba6ff29de6c2c263c5b76 (patch) | |
tree | 28343910375ab6a065b5ea0288fb08858441c855 /gcc/ada/impunit.adb | |
parent | 4e9f48a126a0812b87a7dba7dfcd11d441c48e80 (diff) | |
download | gcc-f88ecba0bc8dca1af95ba6ff29de6c2c263c5b76.zip gcc-f88ecba0bc8dca1af95ba6ff29de6c2c263c5b76.tar.gz gcc-f88ecba0bc8dca1af95ba6ff29de6c2c263c5b76.tar.bz2 |
Makefile.in: Add proper GNAT.Serial_Communications implementation on supported platforms.
2008-03-26 Pascal Obry <obry@adacore.com>
* Makefile.in: Add proper GNAT.Serial_Communications implementation on
supported platforms.
* Makefile.rtl: Add g-sercom.o.
* impunit.adb: Add g-sercom.adb.
* s-crtl.ads (open): New routine.
(close): Likewise.
(write): Likewise.
* s-osinte-mingw.ads (BYTE): New type.
(CHAR): Likewise.
(OVERLAPPED): Likewise.
(GENERIC_READ): New constant.
(GENERIC_WRITE): Likewise.
(OPEN_EXISTING): Likewise.
(PSECURITY_ATTRIBUTES): Removed this type, use anonymous access
type instead.
(CreateFile): New routine.
(WriteFile): Likewise.
(ReadFile): Likewise.
(CloseHandle): Move next to the other file oriented routines.
* g-sercom.ads: New unit.
* g-sercom.adb: Default implementation, calls to this unit will raise
a program error exception.
* g-sercom-mingw.adb, g-sercom-linux.adb: Windows and
GNU/Linux implementations.
From-SVN: r133569
Diffstat (limited to 'gcc/ada/impunit.adb')
-rw-r--r-- | gcc/ada/impunit.adb | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index f9b1b2d..bf85def 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -42,13 +42,14 @@ package body Impunit is -- Ada 95 Units -- ------------------ - -- The following is a giant string list containing the names of all - -- non-implementation internal files, i.e. the complete list of files for + -- The following is a giant string list containing the names of all non- + -- implementation internal files, i.e. the complete list of files for -- internal units which a program may legitimately WITH when operating in -- either Ada 95 or Ada 05 mode. -- Note that this list should match the list of units documented in the - -- "GNAT Library" section of the GNAT Reference Manual. + -- "GNAT Library" section of the GNAT Reference Manual. A unit listed here + -- must either be documented in that section or described in the Ada RM. Non_Imp_File_Names_95 : constant File_List := ( @@ -160,7 +161,6 @@ package body Impunit is "a-ssicst", -- Ada.Streams.Stream_IO.C_Streams "a-suteio", -- Ada.Strings.Unbounded.Text_IO "a-swuwti", -- Ada.Strings.Wide_Unbounded.Wide_Text_IO - "a-taidim", -- Ada.Task_Identification.Image "a-tiocst", -- Ada.Text_IO.C_Streams "a-wtcstr", -- Ada.Wide_Text_IO.C_Streams @@ -175,14 +175,13 @@ package body Impunit is -- GNAT Special IO Units -- --------------------------- - -- As further explained elsewhere (see Sem_Ch10), the internal - -- packages of Text_IO and Wide_Text_IO are actually implemented - -- as separate children, but this fact is intended to be hidden - -- from the user completely. Any attempt to WITH one of these - -- units will be diagnosed as an error later on, but for now we - -- do not consider these internal implementation units (if we did, - -- then we would get a junk warning which would be confusing and - -- unecessary, given that we generate a clear error message). + -- As further explained elsewhere (see Sem_Ch10), the internal packages of + -- Text_IO and Wide_Text_IO are actually implemented as separate children, + -- but this fact is intended to be hidden from the user completely. Any + -- attempt to WITH one of these units will be diagnosed as an error later + -- on, but for now we do not consider these internal implementation units + -- (if we did, then we would get a junk warning which would be confusing + -- and unecessary, given that we generate a clear error message). "a-tideio", -- Ada.Text_IO.Decimal_IO "a-tienio", -- Ada.Text_IO.Enumeration_IO @@ -259,6 +258,7 @@ package body Impunit is "g-regist", -- GNAT.Registry "g-regpat", -- GNAT.Regpat "g-semaph", -- GNAT.Semaphores + "g-sercom", -- GNAT.Serial_Communications "g-sestin", -- GNAT.Secondary_Stack_Info "g-sha1 ", -- GNAT.SHA1 "g-signal", -- GNAT.Signals @@ -282,8 +282,6 @@ package body Impunit is "g-u3spch", -- GNAT.UTF_32_Spelling_Checker "g-wispch", -- GNAT.Wide_Spelling_Checker "g-wistsp", -- GNAT.Wide_String_Split - "g-zspche", -- GNAT.Wide_Wide_Spelling_Checker - "g-zstspl", -- GNAT.Wide_Wide_String_Split ----------------------------------------------------- -- Interface Hierarchy Units from Reference Manual -- |