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

[multiple changes] 

2005-11-14  Vincent Celier  <celier@adacore.com>

	* makegpr.adb (Gprmake): Do not attempt to build the global archive if
	there is no object directory.

2005-11-14  Robert Dewar  <dewar@adacore.com>

	* usage.adb: Minor adjustment to output format, use nn instead of nnn
	(so that -gnateInnn does not run into next column)

2005-11-14  Ed Falis  <falis@adacore.com>

	* s-bitops.adb (Bits_Array): corrected comment: "unconstrained" =>
	"constrained"

2005-11-14  Cyrille Comar  <comar@adacore.com>

	* s-chepoo.ads: Add comments on Dereference.
	Remove unnecessary inherited abstract primitives.
	Cosmetic cleanup.

2005-11-14  Robert Dewar  <dewar@adacore.com>

	* sem_cat.ads (Validate_Access_Type_Declaration): Remove declaration
	node parameter, not needed, since it is available as Declaration_Node.

2005-11-14  Geert Bosch  <bosch@adacore.com>

	* s-exnllf.adb (Exn_LLF): Fix comment to be more precise and
	grammatically correct.

2005-11-14  Vincent Celier  <celier@adacore.com>

	* s-fileio.ads: Correct spelling error in comment

From-SVN: r107014
This commit is contained in:
Arnaud Charlet 2005-11-15 15:05:30 +01:00
parent 45b5a7a1b0
commit aa63543913
7 changed files with 32 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/makegpr.adb
View File

@ -129,7 +129,7 @@ package body Makegpr is
-- ar commands. -- ar commands.
Archive_Indexer_Path : String_Access := null; Archive_Indexer_Path : String_Access := null;
-- The path name of the archive indexer (ranlib), if it exists. -- The path name of the archive indexer (ranlib), if it exists
Copyright_Output : Boolean := False; Copyright_Output : Boolean := False;
Usage_Output : Boolean := False; Usage_Output : Boolean := False;
@ -356,7 +356,7 @@ package body Makegpr is
procedure Add_Argument (Arg : String_Access; Display : Boolean); procedure Add_Argument (Arg : String_Access; Display : Boolean);
procedure Add_Argument (Arg : String; Display : Boolean); procedure Add_Argument (Arg : String; Display : Boolean);
-- Add an argument to Arguments. Reallocate if necessary. -- Add an argument to Arguments. Reallocate if necessary
procedure Add_Arguments (Args : Argument_List; Display : Boolean); procedure Add_Arguments (Args : Argument_List; Display : Boolean);
-- Add a list of arguments to Arguments. Reallocate if necessary -- Add a list of arguments to Arguments. Reallocate if necessary
@ -2015,7 +2015,7 @@ package body Makegpr is
end if; end if;
end; end;
-- If the source path name ends the line, we are done. -- If the source path name ends the line, we are done
exit Line_Loop when Finish = Last; exit Line_Loop when Finish = Last;
@ -2609,7 +2609,7 @@ package body Makegpr is
-- Keep_Going is True, to inhibit the building of the archive. -- Keep_Going is True, to inhibit the building of the archive.
Need_To_Compile : Boolean; Need_To_Compile : Boolean;
-- Set to True when a source needs to be compiled/recompiled. -- Set to True when a source needs to be compiled/recompiled
Need_To_Rebuild_Archive : Boolean := Force_Compilations; Need_To_Rebuild_Archive : Boolean := Force_Compilations;
-- True when the archive needs to be built/rebuilt unconditionally -- True when the archive needs to be built/rebuilt unconditionally
@ -3217,7 +3217,10 @@ package body Makegpr is
-- If -c was not specified, link the executables, -- If -c was not specified, link the executables,
-- if there are any. -- if there are any.
if not Compile_Only and then not Data.Library then if not Compile_Only
and then not Data.Library
and then Data.Object_Directory /= No_Name
then
Build_Global_Archive; Build_Global_Archive;
Link_Executables; Link_Executables;
end if; end if;
@ -3677,7 +3680,7 @@ package body Makegpr is
-- project. Any main that is not a source of the other languages -- project. Any main that is not a source of the other languages
-- will be deemed to be an Ada main. -- will be deemed to be an Ada main.
-- Find the mains of the other languages and the Ada mains. -- Find the mains of the other languages and the Ada mains
Mains.Reset; Mains.Reset;
Ada_Mains.Set_Last (0); Ada_Mains.Set_Last (0);

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

@ -40,7 +40,7 @@ with Unchecked_Conversion;
package body System.Bit_Ops is package body System.Bit_Ops is
subtype Bits_Array is System.Unsigned_Types.Packed_Bytes1 (Positive); subtype Bits_Array is System.Unsigned_Types.Packed_Bytes1 (Positive);
-- Unconstrained array used to interprete the address values. We use the -- Constrained array used to interpret the address values. We use the
-- unaligned version always, since this will handle both the aligned and -- unaligned version always, since this will handle both the aligned and
-- unaligned cases, and we always do these operations by bytes anyway. -- unaligned cases, and we always do these operations by bytes anyway.
-- Note: we use a ones origin array here so that the computations of the -- Note: we use a ones origin array here so that the computations of the

28
gcc/ada/s-chepoo.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- Copyright (C) 1992-1996, 2005 Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -41,32 +41,18 @@ package System.Checked_Pools is
-- called on each implicit or explicit dereference of a pointer which -- called on each implicit or explicit dereference of a pointer which
-- has such a storage pool -- has such a storage pool
procedure Allocate
(Pool : in out Checked_Pool;
Storage_Address : out Address;
Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count;
Alignment : in System.Storage_Elements.Storage_Count)
is abstract;
procedure Deallocate
(Pool : in out Checked_Pool;
Storage_Address : in Address;
Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count;
Alignment : in System.Storage_Elements.Storage_Count)
is abstract;
function Storage_Size
(Pool : Checked_Pool)
return System.Storage_Elements.Storage_Count
is abstract;
procedure Dereference procedure Dereference
(Pool : in out Checked_Pool; (Pool : in out Checked_Pool;
Storage_Address : in Address; Storage_Address : in Address;
Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count; Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count;
Alignment : in System.Storage_Elements.Storage_Count) Alignment : in System.Storage_Elements.Storage_Count)
is abstract; is abstract;
-- Called each time a pointer to a checked pool is dereferenced -- Called implicitly each time a pointer to a checked pool is dereferenced
-- All parameters in the profile are compatible with the profile of
-- Allocate/Deallocate: the Storage_Address corresponds to the address of
-- the dereferenced object, Size_in_Storage_Elements is its dynamic size
-- (and thus may involve an implicit dispatching call to size) and
-- Alignment is the alignment of the object.
private private
type Checked_Pool is abstract type Checked_Pool is abstract

6
gcc/ada/s-exnllf.adb
View File

@ -49,9 +49,9 @@ package body System.Exn_LLF is
begin begin
-- We use the standard logarithmic approach, Exp gets shifted right -- We use the standard logarithmic approach, Exp gets shifted right
-- testing successive low order bits and Factor is the value of the -- testing successive low order bits and Factor is the value of the
-- base raised to the next power of 2. For positive exponents we -- base raised to the next power of 2. If the low order bit or Exp is
-- multiply the result by this factor, for negative exponents, we -- set, multiply the result by this factor. For negative exponents,
-- Division by this factor. -- invert result upon return.
if Exp >= 0 then if Exp >= 0 then
loop loop

4
gcc/ada/s-fileio.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -139,7 +139,7 @@ package System.File_IO is
procedure Chain_File (File : FCB.AFCB_Ptr); procedure Chain_File (File : FCB.AFCB_Ptr);
-- Used to chain the given file into the list of open files. Normally this -- Used to chain the given file into the list of open files. Normally this
-- is done implicitly by Open. Chain_File is used for the spcial cases of -- is done implicitly by Open. Chain_File is used for the special cases of
-- the system files defined by Text_IO (stdin, stdout, stderr) which are -- the system files defined by Text_IO (stdin, stdout, stderr) which are
-- not opened in the normal manner. Note that the caller is responsible -- not opened in the normal manner. Note that the caller is responsible
-- for task lock out to protect the global data structures if this is -- for task lock out to protect the global data structures if this is

4
gcc/ada/sem_cat.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -96,7 +96,7 @@ package Sem_Cat is
-- the checks cannot be made before knowing if the object is imported. -- the checks cannot be made before knowing if the object is imported.
procedure Validate_RCI_Declarations (P : Entity_Id); procedure Validate_RCI_Declarations (P : Entity_Id);
-- Apply semantic checks given in E2.3(10-14). -- Apply semantic checks given in E2.3(10-14)
procedure Validate_RCI_Subprogram_Declaration (N : Node_Id); procedure Validate_RCI_Subprogram_Declaration (N : Node_Id);
-- Check for RCI unit subprogram declarations with respect to -- Check for RCI unit subprogram declarations with respect to

16
gcc/ada/usage.adb
View File

@ -162,7 +162,7 @@ begin
-- Line for -gnateI switch -- Line for -gnateI switch
Write_Switch_Char ("eInnn"); Write_Switch_Char ("eInn");
Write_Line ("Index in multi-unit source, e.g. -gnateI2"); Write_Line ("Index in multi-unit source, e.g. -gnateI2");
-- Line for -gnatem switch -- Line for -gnatem switch
@ -213,7 +213,7 @@ begin
-- Line for -gnatk switch -- Line for -gnatk switch
Write_Switch_Char ("k"); Write_Switch_Char ("k");
Write_Line ("Limit file names to nnn characters (k = krunch)"); Write_Line ("Limit file names to nn characters (k = krunch)");
-- Line for -gnatl switch -- Line for -gnatl switch
@ -222,8 +222,8 @@ begin
-- Line for -gnatm switch -- Line for -gnatm switch
Write_Switch_Char ("mnnn"); Write_Switch_Char ("mnn");
Write_Line ("Limit number of detected errors to nnn (1-999999)"); Write_Line ("Limit number of detected errors to nn (1-999999)");
-- Line for -gnatn switch -- Line for -gnatn switch
@ -289,8 +289,8 @@ begin
-- Line for -gnatT switch -- Line for -gnatT switch
Write_Switch_Char ("Tnnn"); Write_Switch_Char ("Tnn");
Write_Line ("All compiler tables start at nnn times usual starting size"); Write_Line ("All compiler tables start at nn times usual starting size");
-- Line for -gnatu switch -- Line for -gnatu switch
@ -438,10 +438,10 @@ begin
Write_Line (" i check if-then layout"); Write_Line (" i check if-then layout");
Write_Line (" k check casing rules for keywords"); Write_Line (" k check casing rules for keywords");
Write_Line (" l check reference manual layout"); Write_Line (" l check reference manual layout");
Write_Line (" Lnnn check max nest level < nnn"); Write_Line (" Lnn check max nest level < nn ");
Write_Line (" m check line length <= 79 characters"); Write_Line (" m check line length <= 79 characters");
Write_Line (" n check casing of package Standard identifiers"); Write_Line (" n check casing of package Standard identifiers");
Write_Line (" Mnnn check line length <= nnn characters"); Write_Line (" Mnn check line length <= nn characters");
Write_Line (" o check subprogram bodies in alphabetical order"); Write_Line (" o check subprogram bodies in alphabetical order");
Write_Line (" p check pragma casing"); Write_Line (" p check pragma casing");
Write_Line (" r check casing for identifier references"); Write_Line (" r check casing for identifier references");