From: Thomas Quinot Date: Tue, 5 Aug 2008 09:28:44 +0000 (+0200) Subject: g-sercom.adb, [...] (Data_Bits): Change literals B7 and B8 to CS7 and CS8. X-Git-Tag: releases/gcc-4.4.0~3368 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=584ec6e003fc31bd56624c5f564e71b02a9e296d;p=thirdparty%2Fgcc.git 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 --- 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;