OSDN Git Service

2008-03-26 Pascal Obry <obry@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 26 Mar 2008 07:40:18 +0000 (07:40 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 26 Mar 2008 07:40:18 +0000 (07:40 +0000)
commit549bcd91ac94ea30df62456d076d34706e2ceea1
tree28343910375ab6a065b5ea0288fb08858441c855
parent8453782c2b508a3c18474bf6626f31ba3e21c968
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133569 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/Makefile.in
gcc/ada/Makefile.rtl
gcc/ada/g-sercom-linux.adb [new file with mode: 0644]
gcc/ada/g-sercom-mingw.adb [new file with mode: 0644]
gcc/ada/g-sercom.adb [new file with mode: 0644]
gcc/ada/g-sercom.ads [new file with mode: 0644]
gcc/ada/impunit.adb
gcc/ada/s-crtl.ads