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

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;

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;

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;

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;