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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1a21d7a4987247cabf42d1bbc74bfdfbd325b103..541c3672f487f39224ec4bdeaad6a41e3fbb44e2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,10 @@
+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,

diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb
index 5208daf22e4f68b9a4f82626ab589c1f7ae06a82..851f11850b8dc3c0e46e0a6f303035dcb4fb2cd5 100644 (file)
--- 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 2bb38fc8fa423686610f79af5e23e4dc98b8e71d..8e8eb6b0eba08681d5fc216b8d2d0da0743a0ba4 100644 (file)
--- 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 07fcc9cb20df59fcbf9e26414d8f89fa564e0d56..e93b7af4dca420b5c733a3d6aa97f8951eaa6a70 100644 (file)
--- 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 59297e941ff148ac2315d8f5fc9a525e16cf48e2..69a431539070889c31f6ebf9c9afd278c6cb40b1 100644 (file)
--- 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 b9c3c5e6ae9e7b6adad08a4a4820b5a17cbcbd9d..6d197f76d1d0af120bac94e02b809e22c52588b8 100644 (file)
--- 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 c8894d64929b82cb29d2cb11bfd5cf3d6a964fe1..8e9ba26ce64caecccfb5f7a56706675d46b1323b 100644 (file)
--- 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 bd2470057e3663373d8ed39cea47253ce074323a..a5b8dfbba5b78da0004f60b80aa5ab267bd9f5b1 100644 (file)
--- 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 20b0bbc04adfde9019a70458c6cc0855d32a4a70..da9cca88b9ceecbd2d63296171fe07c974581a50 100644 (file)
--- 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 0d0dd08699e7b808b6ce9afaf7e4cad716622f30..eb8c0f1867c11ec07c5046e3301cfe7a91dcea76 100644 (file)
--- 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);