From 7e728b0f0d131c8f9016b89a08f77e4f6479cbbb Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Mon, 20 Apr 2009 09:44:10 +0000 Subject: [PATCH] s-taprop-irix.adb, [...]: Minor reformatting. 2009-04-20 Thomas Quinot * 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 --- gcc/ada/ChangeLog | 7 +++++++ gcc/ada/output.adb | 3 ++- gcc/ada/output.ads | 6 +++--- gcc/ada/s-taprop-hpux-dce.adb | 4 ++-- gcc/ada/s-taprop-irix.adb | 4 ++-- gcc/ada/s-taprop-linux.adb | 10 +++++----- gcc/ada/s-taprop-posix.adb | 4 ++-- gcc/ada/s-taprop-solaris.adb | 4 ++-- gcc/ada/s-taprop-tru64.adb | 4 ++-- 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 1a21d7a49872..541c3672f487 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2009-04-20 Thomas Quinot + + * 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 * g-socket.adb, g-socket.ads, g-socthi-mingw.ads, g-socthi-vms.adb, diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 5208daf22e4f..851f11850b8d 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 2bb38fc8fa42..8e8eb6b0eba0 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 07fcc9cb20df..e93b7af4dca4 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 59297e941ff1..69a431539070 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 b9c3c5e6ae9e..6d197f76d1d0 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 c8894d64929b..8e9ba26ce64c 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 bd2470057e36..a5b8dfbba5b7 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 20b0bbc04adf..da9cca88b9ce 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 0d0dd08699e7..eb8c0f1867c1 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); -- 2.47.2