[multiple changes]

2009-11-30  Robert Dewar  <dewar@adacore.com>

	* a-tiinio.adb: Remove extraneous pragma Warnings (Off).

2009-11-30  Thomas Quinot  <quinot@adacore.com>

	* par_sco.adb: Minor reformatting

2009-11-30  Ed Falis  <falis@adacore.com>

	* s-vxwext.ad[s,b], system-vxworks-ppc.ads, s-stchop-vxworks.adb:
	Comment update.

From-SVN: r154827

7 files changed, 29 insertions, 15 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2d93b5d..ec1dc3c 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,16 @@
+2009-11-30  Robert Dewar  <dewar@adacore.com>
+
+	* a-tiinio.adb: Remove extraneous pragma Warnings (Off).
+
+2009-11-30  Thomas Quinot  <quinot@adacore.com>
+
+	* par_sco.adb: Minor reformatting
+
+2009-11-30  Ed Falis  <falis@adacore.com>
+
+	* s-vxwext.ad[s,b], system-vxworks-ppc.ads, s-stchop-vxworks.adb:
+	Comment update.
+
 2009-11-30  Ed Schonberg  <schonberg@adacore.com>
 
 	* par_sco.adb (Traverse_Handled_Statement_Sequence): Do not emit SCO's
diff --git a/gcc/ada/a-tiinio.adb b/gcc/ada/a-tiinio.adb
index eb2aa32..f477dbf 100644
--- a/gcc/ada/a-tiinio.adb
+++ b/gcc/ada/a-tiinio.adb
@@ -36,7 +36,6 @@ package body Ada.Text_IO.Integer_IO is
    package Aux renames Ada.Text_IO.Integer_Aux;
 
    Need_LLI : constant Boolean := Num'Base'Size > Integer'Size;
-   pragma Warnings (Off, Need_LLI);
    --  Throughout this generic body, we distinguish between the case where type
    --  Integer is acceptable, and where a Long_Long_Integer is needed. This
    --  Boolean is used to test for these cases and since it is a constant, only
diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb
index dddc3ff..e6d71dd 100644
--- a/gcc/ada/par_sco.adb
+++ b/gcc/ada/par_sco.adb
@@ -990,13 +990,11 @@ package body Par_SCO is
 
    begin
 
-      --  for package bodies without a statement part, the parser adds an
-      --  empty one, to normalize the representation. The null statement
-      --  therein, which does not come from source, does not get a SCO.
+      --  For package bodies without a statement part, the parser adds an empty
+      --  one, to normalize the representation. The null statement therein,
+      --  which does not come from source, does not get a SCO.
 
-      if Present (N)
-        and then Comes_From_Source (N)
-      then
+      if Present (N) and then Comes_From_Source (N) then
          Traverse_Declarations_Or_Statements (Statements (N));
 
          if Present (Exception_Handlers (N)) then
diff --git a/gcc/ada/s-stchop-vxworks.adb b/gcc/ada/s-stchop-vxworks.adb
index 1f8ad2d..152dc92 100644
--- a/gcc/ada/s-stchop-vxworks.adb
+++ b/gcc/ada/s-stchop-vxworks.adb
@@ -31,7 +31,7 @@
 
 --  This is the VxWorks version of this package.
 --  This file should be kept synchronized with the general implementation
---  provided by s-stchop.adb.
+--  provided by s-stchop.adb. This version is for VxWorks 5 and VxWorks MILS.
 
 pragma Restrictions (No_Elaboration_Code);
 --  We want to guarantee the absence of elaboration code because the
@@ -44,10 +44,11 @@ with Interfaces.C;
 package body System.Stack_Checking.Operations is
 
    --  In order to have stack checking working appropriately on VxWorks we need
-   --  to extract the stack size information from the VxWorks kernel itself. It
-   --  means that the library for showing task-related information needs to be
-   --  linked into the VxWorks system, when using stack checking. The TaskShow
-   --  library can be linked into the VxWorks system by either:
+   --  to extract the stack size information from the VxWorks kernel itself.
+
+   --  For VxWorks 5 the library for showing task-related information needs to
+   --  be linked into the VxWorks system, when using stack checking. The
+   --  taskShow library can be linked into the VxWorks system by either:
 
    --    * defining INCLUDE_SHOW_ROUTINES in config.h when using
    --      configuration header files, or
@@ -55,6 +56,9 @@ package body System.Stack_Checking.Operations is
    --    * selecting INCLUDE_TASK_SHOW when using the Tornado project
    --      facility.
 
+   --  VxWorks MILS includes the necessary routine in taskLib, so nothing
+   --  special needs to be done there.
+
    Stack_Limit : Address :=
                    Boolean'Pos (Stack_Grows_Down) * Address'First
                    + Boolean'Pos (not Stack_Grows_Down) * Address'Last;
diff --git a/gcc/ada/s-vxwext.adb b/gcc/ada/s-vxwext.adb
index b13b07e..a0f0e8a 100644
--- a/gcc/ada/s-vxwext.adb
+++ b/gcc/ada/s-vxwext.adb
@@ -31,7 +31,7 @@
 --  This package provides vxworks specific support functions needed
 --  by System.OS_Interface.
 
---  This is the VxWorks 5.x version of this package
+--  This is the VxWorks 5 and VxWorks MILS version of this package
 
 package body System.VxWorks.Ext is
 
diff --git a/gcc/ada/s-vxwext.ads b/gcc/ada/s-vxwext.ads
index f1906a6..42abdc1 100644
--- a/gcc/ada/s-vxwext.ads
+++ b/gcc/ada/s-vxwext.ads
@@ -29,7 +29,7 @@
 --  This package provides vxworks specific support functions needed
 --  by System.OS_Interface.
 
---  This is the VxWorks 5 version of this package
+--  This is the VxWorks 5 and VxWorks MILS version of this package
 
 with Interfaces.C;
 
diff --git a/gcc/ada/system-vxworks-ppc.ads b/gcc/ada/system-vxworks-ppc.ads
index d355bae..38a9def 100644
--- a/gcc/ada/system-vxworks-ppc.ads
+++ b/gcc/ada/system-vxworks-ppc.ads
@@ -5,7 +5,7 @@
 --                               S Y S T E M                                --
 --                                                                          --
 --                                 S p e c                                  --
---                         (VxWorks 5 Version PPC)                          --
+--                    (VxWorks 5 and MILS Version PPC)                      --
 --                                                                          --
 --          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
 --                                                                          --