diff options
author | Thomas Quinot <quinot@adacore.com> | 2009-04-20 09:44:10 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 11:44:10 +0200 |
commit | 7e728b0f0d131c8f9016b89a08f77e4f6479cbbb (patch) | |
tree | b49e8db45c4f24e5ecfeee5550af7e826a984c83 | |
parent | 5e39baa64cbb9805c30d16d391b3ad446a36ffe7 (diff) | |
download | gcc-7e728b0f0d131c8f9016b89a08f77e4f6479cbbb.zip gcc-7e728b0f0d131c8f9016b89a08f77e4f6479cbbb.tar.gz gcc-7e728b0f0d131c8f9016b89a08f77e4f6479cbbb.tar.bz2 |
s-taprop-irix.adb, [...]: Minor reformatting.
2009-04-20 Thomas Quinot <quinot@adacore.com>
* s-taprop-irix.adb, s-taprop-tru64.adb, s-taprop-vms.adb,
output.adb, output.ads, s-taprop-hpux-dce.adb,
s-taprop-linux.adb, s-taprop-solaris.adb, s-taprop-posix.adb: Minor
reformatting.
From-SVN: r146388
-rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
-rw-r--r-- | gcc/ada/output.adb | 3 | ||||
-rw-r--r-- | gcc/ada/output.ads | 6 | ||||
-rw-r--r-- | gcc/ada/s-taprop-hpux-dce.adb | 4 | ||||
-rw-r--r-- | gcc/ada/s-taprop-irix.adb | 4 | ||||
-rw-r--r-- | gcc/ada/s-taprop-linux.adb | 10 | ||||
-rw-r--r-- | gcc/ada/s-taprop-posix.adb | 4 | ||||
-rw-r--r-- | gcc/ada/s-taprop-solaris.adb | 4 | ||||
-rw-r--r-- | gcc/ada/s-taprop-tru64.adb | 4 | ||||
-rw-r--r-- | gcc/ada/s-taprop-vms.adb | 4 |
10 files changed, 29 insertions, 21 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1a21d7a..541c367 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,12 @@ 2009-04-20 Thomas Quinot <quinot@adacore.com> + * s-taprop-irix.adb, s-taprop-tru64.adb, s-taprop-vms.adb, + output.adb, output.ads, s-taprop-hpux-dce.adb, + s-taprop-linux.adb, s-taprop-solaris.adb, s-taprop-posix.adb: Minor + reformatting. + +2009-04-20 Thomas Quinot <quinot@adacore.com> + * g-socket.adb, g-socket.ads, g-socthi-mingw.ads, g-socthi-vms.adb, g-socthi-vms.ads, g-socthi-vxworks.ads, g-socthi.ads (GNAT.Sockets.Thin.C_Inet_Addr): Remove. diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 5208daf..851f118 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -45,6 +45,7 @@ package body Output is Indentation_Limit : constant Positive := 40; -- Indentation beyond this number of spaces wraps around + pragma Assert (Indentation_Limit < Buffer_Max / 2); -- Make sure this is substantially shorter than the line length @@ -163,7 +164,7 @@ package body Output is begin Cur_Indentation := (Cur_Indentation + Indentation_Amount) mod Indentation_Limit; - -- The "mod" is to wrap around in case there's too much indentation. + -- The "mod" is to wrap around in case there's too much indentation end Indent; ------------- diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index 2bb38fc..8e8eb6b 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -84,7 +84,7 @@ package Output is procedure Indent; -- Increases the current indentation level. Whenever a line is written -- (triggered by Eol), an appropriate amount of whitespace is added to the - -- beginning of the line, wrapping around if it gets to long. + -- beginning of the line, wrapping around if it gets too long. procedure Outdent; -- Decreases the current indentation level. @@ -200,8 +200,8 @@ private -- Column about to be written type Saved_Output_Buffer is record - Buffer : String (1 .. Buffer_Max + 1); - Next_Col : Positive; + Buffer : String (1 .. Buffer_Max + 1); + Next_Col : Positive; Cur_Indentation : Natural; end record; diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index 07fcc9c..e93b7af 100644 --- a/gcc/ada/s-taprop-hpux-dce.adb +++ b/gcc/ada/s-taprop-hpux-dce.adb @@ -1070,8 +1070,8 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); diff --git a/gcc/ada/s-taprop-irix.adb b/gcc/ada/s-taprop-irix.adb index 59297e9..69a4315 100644 --- a/gcc/ada/s-taprop-irix.adb +++ b/gcc/ada/s-taprop-irix.adb @@ -1155,8 +1155,8 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index b9c3c5e..6d197f7 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -1085,11 +1085,11 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). - -- This should not happen on current implementation of pthread - -- under Linux, but POSIX does not guarantee it, so this may - -- change in the future. + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). This should not + -- happen with the current Linux implementation of pthread, but + -- POSIX does not guarantee it, so this may change in the + -- future. Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb index c8894d6..8e9ba26 100644 --- a/gcc/ada/s-taprop-posix.adb +++ b/gcc/ada/s-taprop-posix.adb @@ -1259,8 +1259,8 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index bd24700..a5b8dfb 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -1820,8 +1820,8 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). Result := cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); diff --git a/gcc/ada/s-taprop-tru64.adb b/gcc/ada/s-taprop-tru64.adb index 20b0bbc..da9cca8 100644 --- a/gcc/ada/s-taprop-tru64.adb +++ b/gcc/ada/s-taprop-tru64.adb @@ -1172,8 +1172,8 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 0d0dd08..eb8c0f1 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -1106,8 +1106,8 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); |