diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-05 11:28:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 11:28:44 +0200 |
| commit | 584ec6e003fc31bd56624c5f564e71b02a9e296d (patch) | |
| tree | b980f1ccd45d364189d873fb59b18dde45f146fc | |
| parent | 33395f44ba7145d1a340cd76c638bda2a7c892e1 (diff) | |
| download | gcc-584ec6e003fc31bd56624c5f564e71b02a9e296d.zip gcc-584ec6e003fc31bd56624c5f564e71b02a9e296d.tar.gz gcc-584ec6e003fc31bd56624c5f564e71b02a9e296d.tar.bz2 | |
g-sercom.adb, [...] (Data_Bits): Change literals B7 and B8 to CS7 and CS8.
2008-08-05 Thomas Quinot <quinot@adacore.com>
* g-sercom.adb, g-sercom.ads, g-sercom-mingw.adb,
g-sercom-linux.adb (Data_Bits): Change literals B7 and B8 to CS7 and
CS8.
From-SVN: r138687
| -rw-r--r-- | gcc/ada/g-sercom-linux.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/g-sercom-mingw.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/g-sercom.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/g-sercom.ads | 4 |
4 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/g-sercom-linux.adb b/gcc/ada/g-sercom-linux.adb index cf8f805..1be595a 100644 --- a/gcc/ada/g-sercom-linux.adb +++ b/gcc/ada/g-sercom-linux.adb @@ -84,7 +84,7 @@ package body GNAT.Serial_Communications is B115200 => 8#010002#); C_Bits : constant array (Data_Bits) of unsigned := - (B7 => 8#040#, B8 => 8#060#); + (CS7 => 8#040#, CS8 => 8#060#); C_Stop_Bits : constant array (Stop_Bits_Number) of unsigned := (One => 0, Two => CSTOPB); @@ -181,7 +181,7 @@ package body GNAT.Serial_Communications is procedure Set (Port : Serial_Port; Rate : Data_Rate := B9600; - Bits : Data_Bits := B8; + Bits : Data_Bits := CS8; Stop_Bits : Stop_Bits_Number := One; Parity : Parity_Check := None; Block : Boolean := True; diff --git a/gcc/ada/g-sercom-mingw.adb b/gcc/ada/g-sercom-mingw.adb index 76f0aa0..abb3227 100644 --- a/gcc/ada/g-sercom-mingw.adb +++ b/gcc/ada/g-sercom-mingw.adb @@ -168,7 +168,7 @@ package body GNAT.Serial_Communications is procedure Set (Port : Serial_Port; Rate : Data_Rate := B9600; - Bits : Data_Bits := B8; + Bits : Data_Bits := CS8; Stop_Bits : Stop_Bits_Number := One; Parity : Parity_Check := None; Block : Boolean := True; diff --git a/gcc/ada/g-sercom.adb b/gcc/ada/g-sercom.adb index ead5c86..c1b4b8e 100644 --- a/gcc/ada/g-sercom.adb +++ b/gcc/ada/g-sercom.adb @@ -79,7 +79,7 @@ package body GNAT.Serial_Communications is procedure Set (Port : Serial_Port; Rate : Data_Rate := B9600; - Bits : Data_Bits := B8; + Bits : Data_Bits := CS8; Stop_Bits : Stop_Bits_Number := One; Parity : Parity_Check := None; Block : Boolean := True; diff --git a/gcc/ada/g-sercom.ads b/gcc/ada/g-sercom.ads index 3d327ce..e425d9d 100644 --- a/gcc/ada/g-sercom.ads +++ b/gcc/ada/g-sercom.ads @@ -51,7 +51,7 @@ package GNAT.Serial_Communications is (B1200, B2400, B4800, B9600, B19200, B38400, B57600, B115200); -- Speed of the communication - type Data_Bits is (B8, B7); + type Data_Bits is (CS8, CS7); -- Communication bits type Stop_Bits_Number is (One, Two); @@ -71,7 +71,7 @@ package GNAT.Serial_Communications is procedure Set (Port : Serial_Port; Rate : Data_Rate := B9600; - Bits : Data_Bits := B8; + Bits : Data_Bits := CS8; Stop_Bits : Stop_Bits_Number := One; Parity : Parity_Check := None; Block : Boolean := True; |