diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-05 09:28:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-05 09:28:44 +0000 |
| commit | 1d09b51bf91b2f5cf7e75bd423df9364c429049d (patch) | |
| tree | b980f1ccd45d364189d873fb59b18dde45f146fc | |
| parent | 52ff39785d407a54b7d4aaaf1b8582047fe6b51a (diff) | |
| download | ppe42-gcc-1d09b51bf91b2f5cf7e75bd423df9364c429049d.tar.gz ppe42-gcc-1d09b51bf91b2f5cf7e75bd423df9364c429049d.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138687 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 cf8f805eb74..1be595a2f63 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 76f0aa08954..abb32274e4c 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 ead5c868c6e..c1b4b8e481b 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 3d327cec76f..e425d9d5550 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; |
