OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

s-taprop-irix.adb, [...]: Minor reformatting.

Browse Source 
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
This commit is contained in:
Thomas Quinot 2009-04-20 09:44:10 +00:00 committed by Arnaud Charlet
parent 5e39baa64c
commit 7e728b0f0d
10 changed files with 29 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -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,

3
gcc/ada/output.adb
View File

@ -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;
-------------

6
gcc/ada/output.ads
View File

@ -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;

4
gcc/ada/s-taprop-hpux-dce.adb
View File

@ -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);

4
gcc/ada/s-taprop-irix.adb
View File

@ -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);

10
gcc/ada/s-taprop-linux.adb
View File

@ -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);

4
gcc/ada/s-taprop-posix.adb
View File

@ -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);

4
gcc/ada/s-taprop-solaris.adb
View File

@ -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);

4
gcc/ada/s-taprop-tru64.adb
View File

@ -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);

4
gcc/ada/s-taprop-vms.adb
View File

@ -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);