* 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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107014
138bc75d-0d04-0410-961f-
82ee72b054a4
-- 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;
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
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;
-- 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
-- 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;
-- 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);
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
-- --
-- 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- --
-- 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
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
-- --
-- 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- --
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
-- --
-- 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- --
-- 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
-- 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
-- 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
-- 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
-- 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
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");
OSDN Git Service
