FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[multiple changes]

Browse source 
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.
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;
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; 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);
-- Add a list of arguments to Arguments. Reallocate if necessary
@ -2015,7 +2015,7 @@ package body Makegpr is
end if;
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;
@ -2609,7 +2609,7 @@ package body Makegpr is
-- Keep_Going is True, to inhibit the building of the archive.
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;
-- 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 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;
Link_Executables;
end if;
@ -3677,7 +3680,7 @@ package body Makegpr is
-- project. Any main that is not a source of the other languages
-- 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;
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
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 cases, and we always do these operations by bytes anyway.
-- 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 --
-- --
-- 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 --
-- 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
-- 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
(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;
-- 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
type Checked_Pool is abstract

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

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

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

@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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);
-- 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
-- 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

4
gcc/ada/sem_cat.ads
View file

@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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.
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);
-- 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
Write_Switch_Char ("eInnn");
Write_Switch_Char ("eInn");
Write_Line ("Index in multi-unit source, e.g. -gnateI2");
-- Line for -gnatem switch
@ -213,7 +213,7 @@ begin
-- Line for -gnatk switch
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
@ -222,8 +222,8 @@ begin
-- Line for -gnatm switch
Write_Switch_Char ("mnnn");
Write_Line ("Limit number of detected errors to nnn (1-999999)");
Write_Switch_Char ("mnn");
Write_Line ("Limit number of detected errors to nn (1-999999)");
-- Line for -gnatn switch
@ -289,8 +289,8 @@ begin
-- Line for -gnatT switch
Write_Switch_Char ("Tnnn");
Write_Line ("All compiler tables start at nnn times usual starting size");
Write_Switch_Char ("Tnn");
Write_Line ("All compiler tables start at nn times usual starting size");
-- Line for -gnatu switch
@ -438,10 +438,10 @@ begin
Write_Line (" i check if-then layout");
Write_Line (" k check casing rules for keywords");
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 (" 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 (" p check pragma casing");
Write_Line (" r check casing for identifier references");