s-proinf-irix-athread.ads, [...]: Minor reformatting.

	* s-proinf-irix-athread.ads, s-vxwork-mips.ads,
	s-traces.ads, s-vxwork-arm.ads, s-vxwork-ppc.ads, s-vxwork-sparcv9.ads,
	s-tasinf-mingw.ads, s-tasinf-linux.ads, s-tasdeb.ads, mlib-tgt.ads,
	i-cstrin.ads, uintp.adb, g-catiio.adb, s-vmexta.ads,
	s-trafor-default.ads, s-vxwork-m68k.ads: Minor reformatting. Update
	comments.

From-SVN: r133590

gcc/ada/ChangeLog

+2008-03-26  Arnaud Charlet  <charlet@adacore.com>
+
+	* s-proinf-irix-athread.ads, s-vxwork-mips.ads,
+	s-traces.ads, s-vxwork-arm.ads, s-vxwork-ppc.ads, s-vxwork-sparcv9.ads,
+	s-tasinf-mingw.ads, s-tasinf-linux.ads, s-tasdeb.ads, mlib-tgt.ads,
+	i-cstrin.ads, uintp.adb, g-catiio.adb, s-vmexta.ads,
+	s-trafor-default.ads, s-vxwork-m68k.ads: Minor reformatting. Update
+	comments.
+
 2008-03-26  Thomas Quinot  <quinot@adacore.com>
 
 PR ada/33688

gcc/ada/g-catiio.adb

@@ -536,7 +536,7 @@ package body GNAT.Calendar.Time_IO is
         constant array (Ada.Calendar.Month_Number) of String3 :=
          ("JAN", "FEB", "MAR", "APR", "MAY", "JUN",
           "JUL", "AUG", "SEP", "OCT", "NOV", "DEC");
-      --  Short version of the month names, used when parsing date strings.
+      --  Short version of the month names, used when parsing date strings
 
       S                                                     : String := Str;
 

gcc/ada/i-cstrin.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1993-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1993-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --

gcc/ada/mlib-tgt.ads

@@ -23,11 +23,11 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This package provides a set of target dependent routines to build
---  static, dynamic and shared libraries.  There are several packages
---  providing the actual routines; this package calls them indirectly
---  by means of access-to-subprogram values; each target-dependent
---  package initializes these values in its elaboration block.
+--  This package provides a set of target dependent routines to build static,
+--  dynamic and shared libraries. There are several packages providing
+--  the actual routines. This package calls them indirectly by means of
+--  access-to-subprogram values. Each target-dependent package initializes
+--  these values in its elaboration block.
 
 with Prj; use Prj;
 

gcc/ada/s-proinf-irix-athread.ads

@@ -46,7 +46,7 @@ package System.Program_Info is
    --  those explicitly created under program control.
 
    function Sproc_Stack_Size return Integer;
-   --  The size, in bytes, of the sproc's initial stack.
+   --  The size, in bytes, of the sproc's initial stack
 
    function Default_Time_Slice  return Duration;
    --  The default time quanta for round-robin scheduling of threads of

gcc/ada/s-tasdeb.ads

@@ -61,7 +61,7 @@ package System.Tasking.Debug is
    --  task specific state.
 
    function Get_User_State return Long_Integer;
-   --  Return the user state for the current task.
+   --  Return the user state for the current task
 
    -------------------------
    -- General GDB support --

gcc/ada/s-tasinf-linux.ads

@@ -41,7 +41,7 @@
 --  This unit may be used directly from an application program by providing
 --  an appropriate WITH, and the interface can be expected to remain stable.
 
---  This is the GNU/Linux version of this module.
+--  This is the GNU/Linux version of this module
 
 with System.OS_Interface;
 

gcc/ada/s-tasinf-mingw.ads

@@ -41,7 +41,7 @@
 --  This unit may be used directly from an application program by providing
 --  an appropriate WITH, and the interface can be expected to remain stable.
 
---  This is the Windows (native) version of this module.
+--  This is the Windows (native) version of this module
 
 with System.OS_Interface;
 

gcc/ada/s-traces.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---           Copyright (C) 2001-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -43,7 +43,7 @@
 --  with the event. Thid procedure is used from within the Runtime to send
 --  debug informations.
 
---  This primitive is overloaded in System.Traces.Tasking and this package.
+--  This primitive is overloaded in System.Traces.Tasking and this package
 
 --  Send_Trace_Info calls Send_Trace, in System.Traces.Send, which is trarget
 --  dependent, to send the debug informations to a debugger, stream ..
@@ -52,17 +52,17 @@
 --  corresponding Send_Trace_Info procedure. It may be required for some
 --  target to modify Send_Trace (eg. VxWorks).
 
---  To add a new target, just adapt System.Traces.Send to your own purpose.
+--  To add a new target, just adapt System.Traces.Send to your own purposes
 
 package System.Traces is
    pragma Preelaborate;
 
    type Trace_T is
      (
-      --  Events handled.
+      --  Events handled
 
       --  Messages
-      --
+
       M_Accept_Complete,
       M_Select_Else,
       M_RDV_Complete,
@@ -70,13 +70,13 @@ package System.Traces is
       M_Delay,
 
       --  Errors
-      --
+
       E_Missed,
       E_Timeout,
       E_Kill,
 
       --  Waiting events
-      --
+
       W_Call,
       W_Accept,
       W_Select,
@@ -89,7 +89,7 @@ package System.Traces is
       WT_Completion,
 
       --  Protected objects events
-      --
+
       PO_Call,
       POT_Call,
       PO_Run,
@@ -98,7 +98,7 @@ package System.Traces is
       PO_Done,
 
       --  Task handling events
-      --
+
       T_Create,
       T_Activate,
       T_Abort,

gcc/ada/s-trafor-default.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---           Copyright (C) 2001-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -37,7 +37,7 @@ package System.Traces.Format is
    pragma Preelaborate;
 
    Max_Size : constant Integer := 128;
-   --  Event messages' maximum size.
+   --  Maximum size if event messages
 
    subtype String_Trace is String (1 .. Max_Size);
    --  Specific type in which trace information is stored. An ASCII.NUL

gcc/ada/s-vmexta.ads

@@ -51,7 +51,7 @@ package System.VMS_Exception_Table is
 private
 
    function Base_Code_In (Code : SSL.Exception_Code) return SSL.Exception_Code;
-   --  Value of Code with the severity bits masked off.
+   --  Value of Code with the severity bits masked off
 
    function Coded_Exception (X : SSL.Exception_Code)
      return SSL.Exception_Data_Ptr;

gcc/ada/s-vxwork-arm.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---            Copyright (C) 1998-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,14 +31,14 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This is the ARM VxWorks version of this package.
+--  This is the ARM VxWorks version of this package
 
 package System.VxWorks is
    pragma Preelaborate (System.VxWorks);
 
    --  Floating point context record. ARM version
 
-   --  The record definition below matches what arch/arm/fppArmLib.h says.
+   --  The record definition below matches what arch/arm/fppArmLib.h says
 
    type FP_CONTEXT is record
       Dummy : Integer;
@@ -48,6 +48,6 @@ package System.VxWorks is
    pragma Convention (C, FP_CONTEXT);
 
    Num_HW_Interrupts : constant := 256;
-   --  Number of entries in hardware interrupt vector table.
+   --  Number of entries in hardware interrupt vector table
 
 end System.VxWorks;

gcc/ada/s-vxwork-m68k.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---            Copyright (C) 1998-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,7 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This is the M68K VxWorks version of this package.
+--  This is the M68K VxWorks version of this package
 
 with Interfaces.C;
 

gcc/ada/s-vxwork-mips.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---            Copyright (C) 1998-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,7 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This is the MIPS VxWorks version of this package.
+--  This is the MIPS VxWorks version of this package
 
 with Interfaces.C;
 
@@ -52,6 +52,6 @@ package System.VxWorks is
    pragma Convention (C, FP_CONTEXT);
 
    Num_HW_Interrupts : constant := 256;
-   --  Number of entries in hardware interrupt vector table.
+   --  Number of entries in hardware interrupt vector table
 
 end System.VxWorks;

gcc/ada/s-vxwork-ppc.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---            Copyright (C) 1998-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,7 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This is the PPC VxWorks version of this package.
+--  This is the PPC VxWorks version of this package
 
 with Interfaces.C;
 

gcc/ada/s-vxwork-sparcv9.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---            Copyright (C) 1998-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,7 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This is the Sparc64 VxWorks version of this package.
+--  This is the Sparc64 VxWorks version of this package
 
 with Interfaces;
 
@@ -57,6 +57,6 @@ package System.VxWorks is
    pragma Convention (C, FP_CONTEXT);
 
    Num_HW_Interrupts : constant := 256;
-   --  Number of entries in hardware interrupt vector table.
+   --  Number of entries in hardware interrupt vector table
 
 end System.VxWorks;

gcc/ada/uintp.adb

@@ -1280,6 +1280,8 @@ package body Uintp is
       Discard_Quotient  : Boolean;
       Discard_Remainder : Boolean)
    is
+      pragma Warnings (Off, Quotient);
+      pragma Warnings (Off, Remainder);
    begin
       pragma Assert (Right /= Uint_0);