From 584ec6e003fc31bd56624c5f564e71b02a9e296d Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 5 Aug 2008 11:28:44 +0200 Subject: [PATCH] g-sercom.adb, [...] (Data_Bits): Change literals B7 and B8 to CS7 and CS8. 2008-08-05 Thomas Quinot * 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 --- gcc/ada/g-sercom-linux.adb | 4 ++-- gcc/ada/g-sercom-mingw.adb | 2 +- gcc/ada/g-sercom.adb | 2 +- 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 cf8f805eb74a..1be595a2f638 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 76f0aa089546..abb32274e4c8 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 ead5c868c6e9..c1b4b8e481b8 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 3d327cec76fb..e425d9d5550e 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; -- 2.47.3