2010-09-09 Robert Dewar <dewar@adacore.com>
+ * gnatcmd.adb, gnatlink.adb, sem_ch12.adb, sem_eval.adb, sinput-p.adb:
+ Minor reformatting
+
+2010-09-09 Robert Dewar <dewar@adacore.com>
+
* impunit.adb: Add entry for a-izteio.
* checks.adb: Add comment.
* debug.adb, exp_disp.adb: Minor reformatting.
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with Csets;
+with Hostparm; use Hostparm;
with Makeutl; use Makeutl;
with MLib.Tgt; use MLib.Tgt;
with MLib.Utl;
with Targparm;
with Tempdir;
with Types; use Types;
-with Hostparm; use Hostparm;
--- Used to determine if we are in VMS or not for error message purposes
+with VMS_Conv; use VMS_Conv;
+with VMS_Cmds; use VMS_Cmds;
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Command_Line; use Ada.Command_Line;
with Ada.Text_IO; use Ada.Text_IO;
-with GNAT.OS_Lib; use GNAT.OS_Lib;
-
-with VMS_Conv; use VMS_Conv;
-with VMS_Cmds; use VMS_Cmds;
+with GNAT.OS_Lib; use GNAT.OS_Lib;
procedure GNATCmd is
Project_Node_Tree : Project_Node_Tree_Ref;
-- Remove duplicate IDENTIFICATION directives (VMS)
if Linker_Options.Table (J)'Length > 29
- and then Linker_Options.Table (J) (1 .. 30)
- = "--for-linker=--identification="
+ and then Linker_Options.Table (J) (1 .. 30) =
+ "--for-linker=--identification="
then
if IDENT_Op then
Linker_Options.Table (J .. Linker_Options.Last - 1) :=
Linker_Options.Table (J + 1 .. Linker_Options.Last);
Linker_Options.Decrement_Last;
Num_Args := Num_Args - 1;
+
else
IDENT_Op := True;
end if;
-- block can be involved, because the parent instances have
-- been installed within it.
- Cur_P := P;
if Ekind (P) = E_Block then
- Cur_P := Scope (Cur_P);
+ Cur_P := Scope (P);
+ else
+ Cur_P := P;
end if;
if Is_Generic_Instance (Cur_P) and then P /= Current_Scope then
-- types, since we may have two NaN values and they should never
-- compare equal.
- -- If the entity is a discriminant, the two expressions may be
- -- bounds of components of objects of the same discriminated
- -- type. The values of the discriminants are not static, and
- -- therefore the result is unknown.
+ -- If the entity is a discriminant, the two expressions may be bounds
+ -- of components of objects of the same discriminated type. The
+ -- values of the discriminants are not static, and therefore the
+ -- result is unknown.
+
+ -- It would be better to comment individual branches of this test ???
if Nkind_In (Lf, N_Identifier, N_Expanded_Name)
and then Nkind_In (Rf, N_Identifier, N_Expanded_Name)
function Source_File_Is_Subunit (X : Source_File_Index) return Boolean is
begin
- -- Nothing to do if X is null. So, simply return False.
+ -- Nothing to do if X is no source file, so simply return False
if X = No_Source_File then
return False;