diff options
| author | Dmitriy Anisimkov <anisimko@adacore.com> | 2019-07-08 08:14:59 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-08 08:14:59 +0000 |
| commit | 55d4e2ba076049f88c24011f2f63aa226e6c87a0 (patch) | |
| tree | 0ed5dc35f9377fb40de37a2f33036fd11b808648 /gcc/ada/xoscons.adb | |
| parent | aec80f204f01c8c8ccd78a6cc4cfa07ba99ecb9f (diff) | |
| download | gcc-55d4e2ba076049f88c24011f2f63aa226e6c87a0.zip gcc-55d4e2ba076049f88c24011f2f63aa226e6c87a0.tar.gz gcc-55d4e2ba076049f88c24011f2f63aa226e6c87a0.tar.bz2 | |
[Ada] GNAT.Serial_Communications: simplify the Serial_Port structure
2019-07-08 Dmitriy Anisimkov <anisimko@adacore.com>
gcc/ada/
* libgnat/g-sercom.ads
(Serial_Port_Descriptor): New type.
(Serial_Port): Add a comment, make it hold a
Serial_Port_Descriptor.
(To_Ada, To_C): New procedures.
(Port_Data, Port_Data_Access): Remove types.
* libgnat/g-sercom.adb (To_Ada): New stub.
* libgnat/g-sercom__linux.adb, libgnat/g-sercom__mingw.adb:
Update implementations accordingly.
* s-oscons-tmplt.c: Bind Serial_Port_Descriptor to
System.Win32.HANDLE on Windows, and to Interfaces.C.int on
Linux. Add "Interfaces.C." prefix for other basic integer type
bindings.
* xoscons.adb (Output_Info): Remove the "Interfaces.C." prefix
for subtypes generation.
From-SVN: r273225
Diffstat (limited to 'gcc/ada/xoscons.adb')
| -rw-r--r-- | gcc/ada/xoscons.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index 0d5f635..7c72e4e 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -229,8 +229,7 @@ procedure XOSCons is case Lang is when Lang_Ada => Put (" subtype " & Info.Constant_Name.all - & " is Interfaces.C." - & Info.Text_Value.all & ";"); + & " is " & Info.Text_Value.all & ";"); when Lang_C => Put ("#define " & Info.Constant_Name.all & " " & Info.Text_Value.all); |