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

[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
This commit is contained in:
Arnaud Charlet 2009-11-30 17:21:19 +01:00
parent 968676741a
commit 9d607bc318
7 changed files with 29 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/ChangeLog
View File

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

1
gcc/ada/a-tiinio.adb
View File

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

10
gcc/ada/par_sco.adb
View File

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

14
gcc/ada/s-stchop-vxworks.adb
View File

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

2
gcc/ada/s-vxwext.adb
View File

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

2
gcc/ada/s-vxwext.ads
View File

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

2
gcc/ada/system-vxworks-ppc.ads
View File

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