From 9d607bc318655f164555aaa634f82e0eb9704d03 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 30 Nov 2009 17:21:19 +0100 Subject: [PATCH] [multiple changes] 2009-11-30 Robert Dewar * a-tiinio.adb: Remove extraneous pragma Warnings (Off). 2009-11-30 Thomas Quinot * par_sco.adb: Minor reformatting 2009-11-30 Ed Falis * s-vxwext.ad[s,b], system-vxworks-ppc.ads, s-stchop-vxworks.adb: Comment update. From-SVN: r154827 --- gcc/ada/ChangeLog | 13 +++++++++++++ gcc/ada/a-tiinio.adb | 1 - gcc/ada/par_sco.adb | 10 ++++------ gcc/ada/s-stchop-vxworks.adb | 14 +++++++++----- gcc/ada/s-vxwext.adb | 2 +- gcc/ada/s-vxwext.ads | 2 +- gcc/ada/system-vxworks-ppc.ads | 2 +- 7 files changed, 29 insertions(+), 15 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2d93b5d2eca4..ec1dc3c9301d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,16 @@ +2009-11-30 Robert Dewar + + * a-tiinio.adb: Remove extraneous pragma Warnings (Off). + +2009-11-30 Thomas Quinot + + * par_sco.adb: Minor reformatting + +2009-11-30 Ed Falis + + * s-vxwext.ad[s,b], system-vxworks-ppc.ads, s-stchop-vxworks.adb: + Comment update. + 2009-11-30 Ed Schonberg * 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 eb2aa327be2b..f477dbf77a13 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 dddc3fffc710..e6d71dd525ba 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 1f8ad2d1b768..152dc920bcfd 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 b13b07e16419..a0f0e8a5910f 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 f1906a68734a..42abdc1f355b 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 d355bae9700d..38a9def0f6ef 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. -- -- --