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

a-cgaaso.ads, [...]: Minor reformatting 

2010-10-21  Robert Dewar  <dewar@adacore.com>

	* a-cgaaso.ads, a-tags.ads, exp_ch3.adb, exp_attr.adb, exp_ch4.adb,
	exp_ch3.ads, exp_ch7.adb, exp_ch9.adb, exp_disp.adb, exp_disp.ads,
	exp_dist.adb, exp_util.adb, layout.adb, lib-xref.adb, lib.ads,
	prep.adb, prj-strt.adb, s-ststop.adb, s-taskin.ads, s-tataat.ads,
	sem_aggr.adb, sem_attr.adb, sem_ch12.adb, sem_ch3.adb, sem_ch4.adb,
	sem_ch4.ads, sem_ch5.adb, sem_res.adb, sem_util.adb, einfo.adb,
	g-sothco.ads, make.adb: Minor reformatting

From-SVN: r165760
This commit is contained in:
Robert Dewar 2010-10-21 10:14:06 +00:00 committed by Arnaud Charlet
parent deeb160439
commit 3b42c566b8
33 changed files with 93 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/ChangeLog
View File

@ -1,3 +1,13 @@
2010-10-21 Robert Dewar <dewar@adacore.com>
* a-cgaaso.ads, a-tags.ads, exp_ch3.adb, exp_attr.adb, exp_ch4.adb,
exp_ch3.ads, exp_ch7.adb, exp_ch9.adb, exp_disp.adb, exp_disp.ads,
exp_dist.adb, exp_util.adb, layout.adb, lib-xref.adb, lib.ads,
prep.adb, prj-strt.adb, s-ststop.adb, s-taskin.ads, s-tataat.ads,
sem_aggr.adb, sem_attr.adb, sem_ch12.adb, sem_ch3.adb, sem_ch4.adb,
sem_ch4.ads, sem_ch5.adb, sem_res.adb, sem_util.adb, einfo.adb,
g-sothco.ads, make.adb: Minor reformatting
2010-10-21 Vincent Celier <celier@adacore.com>
* vms_data.ads: Add new qualifiers /SRC_INFO= and

4
gcc/ada/a-cgaaso.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2004-2009, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2010, 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- --
@ -29,7 +29,7 @@
-- Allows an anonymous array (or array-like container) to be sorted. Generic
-- formal Less returns the result of comparing the elements designated by the
-- indices, and generic formal Swap exchanges the designated elements.
-- indexes, and generic formal Swap exchanges the designated elements.
generic
type Index_Type is (<>);

2
gcc/ada/a-tags.ads
View File

@ -120,7 +120,7 @@ private
-- +------------------+ +-------------------+ +------------+
-- |table of |
-- : entry :
-- | indices |
-- | indexes |
-- +------------------+
-- Structure of the GNAT Secondary Dispatch Table

2
gcc/ada/einfo.adb
View File

@ -7328,7 +7328,7 @@ package body Einfo is
(" Component Type ", Component_Type (Id));
Write_Eol;
Write_Str (Prefix);
Write_Str (" Indices ");
Write_Str (" Indexes ");
Index := First_Index (Id);
while Present (Index) loop

2
gcc/ada/exp_attr.adb
View File

@ -84,7 +84,7 @@ package body Exp_Attr is
Check : Boolean);
-- The body for a stream subprogram may be generated outside of the scope
-- of the type. If the type is fully private, it may depend on the full
-- view of other types (e.g. indices) that are currently private as well.
-- view of other types (e.g. indexes) that are currently private as well.
-- We install the declarations of the package in which the type is declared
-- before compiling the body in what is its proper environment. The Check
-- parameter indicates if checks are to be suppressed for the stream body.

6
gcc/ada/exp_ch3.adb
View File

@ -560,7 +560,7 @@ package body Exp_Ch3 is
function Init_Component return List_Id;
-- Create one statement to initialize one array component, designated
-- by a full set of indices.
-- by a full set of indexes.
function Init_One_Dimension (N : Int) return List_Id;
-- Create loop to initialize one dimension of the array. The single
@ -3540,7 +3540,7 @@ package body Exp_Ch3 is
Stats : List_Id;
begin
-- Build declarations for indices
-- Build declarations for indexes
Decls := New_List;
@ -3568,7 +3568,7 @@ package body Exp_Ch3 is
Right_Opnd => New_Occurrence_Of (Left_Lo, Loc)),
Then_Statements => New_List (Make_Simple_Return_Statement (Loc))));
-- Build initializations for indices
-- Build initializations for indexes
declare
F_Init : constant List_Id := New_List;

4
gcc/ada/exp_ch3.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2010, 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- --
@ -77,7 +77,7 @@ package Exp_Ch3 is
-- enable the use of discriminals. Enclos_Type is the enclosing type when
-- initializing a component in an outer init proc, and it is used for
-- various expansion cases including the case where Typ is a task type
-- which is an array component, the indices of the enclosing type are
-- which is an array component, the indexes of the enclosing type are
-- used to build the string that identifies each task at runtime.
--
-- Discr_Map is used to replace discriminants by their discriminals in

6
gcc/ada/exp_ch4.adb
View File

@ -1420,7 +1420,7 @@ package body Exp_Ch4 is
function Component_Equality (Typ : Entity_Id) return Node_Id;
-- Create one statement to compare corresponding components, designated
-- by a full set of indices.
-- by a full set of indexes.
function Get_Arg_Type (N : Node_Id) return Entity_Id;
-- Given one of the arguments, computes the appropriate type to be used
@ -1442,7 +1442,7 @@ package body Exp_Ch4 is
-- end loop;
-- end;
--
-- If both indices are constrained and identical, the procedure
-- If both indexes are constrained and identical, the procedure
-- returns a simpler loop:
--
-- for An in A'Range (N) loop
@ -1616,7 +1616,7 @@ package body Exp_Ch4 is
if Need_Separate_Indexes then
-- Generate guard for loop, followed by increments of indices
-- Generate guard for loop, followed by increments of indexes
Append_To (Stm_List,
Make_Exit_Statement (Loc,

2
gcc/ada/exp_ch7.adb
View File

@ -2537,7 +2537,7 @@ package body Exp_Ch7 is
function One_Component return List_Id;
-- Create one statement to initialize/adjust/finalize one array
-- component, designated by a full set of indices.
-- component, designated by a full set of indexes.
function One_Dimension (N : Int) return List_Id;
-- Create loop to deal with one dimension of the array. The single

4
gcc/ada/exp_ch9.adb
View File

@ -316,7 +316,7 @@ package body Exp_Ch9 is
Lo : Node_Id;
Ttyp : Entity_Id;
Cap : Boolean) return Node_Id;
-- Compute (Hi - Lo) for two entry family indices. Hi is the index in
-- Compute (Hi - Lo) for two entry family indexes. Hi is the index in
-- an accept statement, or the upper bound in the discrete subtype of
-- an entry declaration. Lo is the corresponding lower bound. Ttyp is
-- the concurrent type of the entry. If Cap is true, the result is
@ -2485,7 +2485,7 @@ package body Exp_Ch9 is
Left_Opnd => Make_Identifier (Loc, Name_uE),
Right_Opnd => Siz);
-- Map entry queue indices in the range of the current family
-- Map entry queue indexes in the range of the current family
-- into the current index, that designates the entry body.
if No (If_St) then

2
gcc/ada/exp_disp.adb
View File

@ -1421,7 +1421,7 @@ package body Exp_Disp is
and then Is_Class_Wide_Type (Formal_Typ)
then
-- No need to displace the pointer if the type of the actual
-- coindices with the type of the formal.
-- coincides with the type of the formal.
if Actual_Typ = Formal_Typ then
null;

2
gcc/ada/exp_disp.ads
View File

@ -340,7 +340,7 @@ package Exp_Disp is
-- Ada 2005 (AI-345): Create and populate the auxiliary table in the TSD
-- of Typ used for dispatching in asynchronous, conditional and timed
-- selects. Generate code to set the primitive operation kinds and entry
-- indices of primitive operations and primitive wrappers.
-- indexes of primitive operations and primitive wrappers.
function Make_Tags (Typ : Entity_Id) return List_Id;
-- Generate the entities associated with the primary and secondary tags of

12
gcc/ada/exp_dist.adb
View File

@ -8207,7 +8207,7 @@ package body Exp_Dist is
Arry : Entity_Id;
-- For 'Range and Etype
Indices : List_Id;
Indexes : List_Id;
-- For the construction of the innermost element expression
with procedure Add_Process_Element
@ -8223,7 +8223,7 @@ package body Exp_Dist is
Depth : Pos := 1);
-- Build nested loop statements that iterate over the elements of an
-- array Arry. The statement(s) built by Add_Process_Element are
-- executed for each element; Indices is the list of indices to be
-- executed for each element; Indexes is the list of indexes to be
-- used in the construction of the indexed component that denotes the
-- current element. Subprogram is the entity for the subprogram for
-- which this iterator is generated. The generated statements are
@ -8992,7 +8992,7 @@ package body Exp_Dist is
new Append_Array_Traversal (
Subprogram => Fnam,
Arry => Res,
Indices => New_List,
Indexes => New_List,
Add_Process_Element => FA_Ary_Add_Process_Element);
Res_Subtype_Indication : Node_Id :=
@ -9868,7 +9868,7 @@ package body Exp_Dist is
new Append_Array_Traversal (
Subprogram => Fnam,
Arry => Expr_Parameter,
Indices => New_List,
Indexes => New_List,
Add_Process_Element => TA_Ary_Add_Process_Element);
Index : Node_Id;
@ -10850,7 +10850,7 @@ package body Exp_Dist is
Element_Expr : constant Node_Id :=
Make_Indexed_Component (Loc,
New_Occurrence_Of (Arry, Loc),
Indices);
Indexes);
begin
Set_Etype (Element_Expr, Component_Type (Typ));
Add_Process_Element (Stmts,
@ -10862,7 +10862,7 @@ package body Exp_Dist is
return;
end if;
Append_To (Indices,
Append_To (Indexes,
Make_Identifier (Loc, New_External_Name ('L', Depth)));
if not Constrained or else Depth > 1 then

6
gcc/ada/exp_util.adb
View File

@ -340,9 +340,9 @@ package body Exp_Util is
-- local to the init proc for the array type, and is called for each one
-- of the components. The constructed image has the form of an indexed
-- component, whose prefix is the outer variable of the array type.
-- The n-dimensional array type has known indices Index, Index2...
-- The n-dimensional array type has known indexes Index, Index2...
-- Id_Ref is an indexed component form created by the enclosing init proc.
-- Its successive indices are Val1, Val2, ... which are the loop variables
-- Its successive indexes are Val1, Val2, ... which are the loop variables
-- in the loops that call the individual task init proc on each component.
-- The generated function has the following structure:
@ -404,7 +404,7 @@ package body Exp_Util is
-- String to hold result
Val : Node_Id;
-- Value of successive indices
-- Value of successive indexes
Sum : Node_Id;
-- Expression to compute total size of string

2
gcc/ada/g-sothco.ads
View File

@ -377,7 +377,7 @@ package GNAT.Sockets.Thin_Common is
Read_End : constant := 0;
Write_End : constant := 1;
-- Indices into an Fd_Pair value providing access to each of the connected
-- Indexes into an Fd_Pair value providing access to each of the connected
-- file descriptors.
function Inet_Pton

4
gcc/ada/layout.adb
View File

@ -727,7 +727,7 @@ package body Layout is
Size := (Dynamic, Expr_From_SO_Ref (Loc, Component_Size (E)));
end if;
-- Loop through indices
-- Loop through indexes
Indx := First_Index (E);
while Present (Indx) loop
@ -1059,7 +1059,7 @@ package body Layout is
Size := (Dynamic, Expr_From_SO_Ref (Loc, Component_Size (E)));
end if;
-- Loop to process array indices
-- Loop to process array indexes
Indx := First_Index (E);
while Present (Indx) loop

4
gcc/ada/lib-xref.adb
View File

@ -2163,8 +2163,8 @@ package body Lib.Xref is
end loop;
end;
-- For array types, list index types as well.
-- (This is not C, indices have distinct types).
-- For array types, list index types as well. (This is
-- not C, indexes have distinct types).
elsif Is_Array_Type (XE.Ent) then
declare

2
gcc/ada/lib.ads
View File

@ -824,7 +824,7 @@ private
With_Node : Node_Id;
end record;
-- The Load_Stack table contains a list of unit numbers (indices into the
-- The Load_Stack table contains a list of unit numbers (indexes into the
-- unit table) of units being loaded on a single dependency chain, and a
-- flag to indicate whether this unit is loaded through a limited_with
-- clause. The First entry is the main unit. The second entry, if present

32
gcc/ada/make.adb
View File

@ -799,8 +799,8 @@ package body Make is
type Temp_Path_Names is array (Positive range <>) of Path_Name_Type;
type Temp_Path_Ptr is access Temp_Path_Names;
type Free_File_Indices is array (Positive range <>) of Positive;
type Free_Indices_Ptr is access Free_File_Indices;
type Free_File_Indexes is array (Positive range <>) of Positive;
type Free_Indexes_Ptr is access Free_File_Indexes;
type Project_Compilation_Data is record
Mapping_File_Names : Temp_Path_Ptr;
@ -811,11 +811,11 @@ package body Make is
Last_Mapping_File_Names : Natural;
-- Index of the last mapping file created for this project
Free_Mapping_File_Indices : Free_Indices_Ptr;
-- Indices in Mapping_File_Names of the mapping file names that can be
Free_Mapping_File_Indexes : Free_Indexes_Ptr;
-- Indexes in Mapping_File_Names of the mapping file names that can be
-- reused for subsequent compilations.
Last_Free_Indices : Natural;
Last_Free_Indexes : Natural;
-- Number of mapping files that can be reused
end record;
-- Information necessary when compiling a project
@ -2669,10 +2669,10 @@ package body Make is
Comp_Data :=
Project_Compilation_Htable.Get
(Project_Compilation, Project);
Comp_Data.Last_Free_Indices :=
Comp_Data.Last_Free_Indices + 1;
Comp_Data.Free_Mapping_File_Indices
(Comp_Data.Last_Free_Indices) :=
Comp_Data.Last_Free_Indexes :=
Comp_Data.Last_Free_Indexes + 1;
Comp_Data.Free_Mapping_File_Indexes
(Comp_Data.Last_Free_Indexes) :=
Running_Compile (J).Mapping_File;
end if;
@ -3182,9 +3182,9 @@ package body Make is
-- If there is a mapping file ready to be reused, reuse it
if Data.Last_Free_Indices > 0 then
Mfile := Data.Free_Mapping_File_Indices (Data.Last_Free_Indices);
Data.Last_Free_Indices := Data.Last_Free_Indices - 1;
if Data.Last_Free_Indexes > 0 then
Mfile := Data.Free_Mapping_File_Indexes (Data.Last_Free_Indexes);
Data.Last_Free_Indexes := Data.Last_Free_Indexes - 1;
-- Otherwise, create and initialize a new one
@ -5338,9 +5338,9 @@ package body Make is
(Mapping_File_Names => new Temp_Path_Names
(1 .. Saved_Maximum_Processes),
Last_Mapping_File_Names => 0,
Free_Mapping_File_Indices => new Free_File_Indices
Free_Mapping_File_Indexes => new Free_File_Indexes
(1 .. Saved_Maximum_Processes),
Last_Free_Indices => 0);
Last_Free_Indexes => 0);
Project_Compilation_Htable.Set
(Project_Compilation, Proj.Project, Data);
@ -5351,9 +5351,9 @@ package body Make is
(Mapping_File_Names => new Temp_Path_Names
(1 .. Saved_Maximum_Processes),
Last_Mapping_File_Names => 0,
Free_Mapping_File_Indices => new Free_File_Indices
Free_Mapping_File_Indexes => new Free_File_Indexes
(1 .. Saved_Maximum_Processes),
Last_Free_Indices => 0);
Last_Free_Indexes => 0);
Project_Compilation_Htable.Set
(Project_Compilation, No_Project, Data);

8
gcc/ada/prep.adb
View File

@ -714,8 +714,8 @@ package body Prep is
procedure List_Symbols (Foreword : String) is
Order : array (0 .. Integer (Symbol_Table.Last (Mapping)))
of Symbol_Id;
-- After alphabetical sorting, this array stores the indices of
-- the symbols in the order they are displayed.
-- After alphabetical sorting, this array stores the indexes of the
-- symbols in the order they are displayed.
function Lt (Op1, Op2 : Natural) return Boolean;
-- Comparison routine for sort call
@ -1034,8 +1034,8 @@ package body Prep is
Modified : Boolean := False;
procedure Output (From, To : Source_Ptr);
-- Output the characters with indices From .. To in the buffer
-- to the output file.
-- Output the characters with indexes From .. To in the buffer to the
-- output file.
procedure Output_Line (From, To : Source_Ptr);
-- Output a line or the end of a line from the buffer to the output

4
gcc/ada/prj-strt.adb
View File

@ -74,8 +74,8 @@ package body Prj.Strt is
Table_Initial => 10,
Table_Increment => 100,
Table_Name => "Prj.Strt.Choice_Lasts");
-- Used to store the indices of the choices in table Choices,
-- to distinguish nested case constructions.
-- Used to store the indexes of the choices in table Choices, to
-- distinguish nested case constructions.
Choice_First : Choice_Node_Id := 0;
-- Index in table Choices of the first case label of the current

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

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2009, Free Software Foundation, Inc. --
-- Copyright (C) 2008-2010, 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- --
@ -216,7 +216,7 @@ package body System.Strings.Stream_Ops is
Rem_Size : constant Natural :=
Block_Size mod Default_Block_Size;
-- String indices
-- String indexes
Low : Positive := Item'First;
High : Positive := Low + C_In_Default_Block - 1;
@ -338,7 +338,7 @@ package body System.Strings.Stream_Ops is
Rem_Size : constant Natural :=
Block_Size mod Default_Block_Size;
-- String indices
-- String indexes
Low : Positive := Item'First;
High : Positive := Low + C_In_Default_Block - 1;

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

@ -870,7 +870,7 @@ package System.Tasking is
type Direct_Index is range 0 .. Parameters.Default_Attribute_Count;
subtype Direct_Index_Range is Direct_Index range 1 .. Direct_Index'Last;
-- Attributes with indices in this range are stored directly in the task
-- Attributes with indexes in this range are stored directly in the task
-- control block. Such attributes must be Address-sized. Other attributes
-- will be held in dynamically allocated records chained off of the task
-- control block.

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

@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2008, AdaCore --
-- Copyright (C) 1995-2010, AdaCore --
-- --
-- GNARL 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- --
@ -107,7 +107,7 @@ package System.Tasking.Task_Attributes is
-- Ensure that the designated object is always strictly enough aligned.
In_Use : Direct_Index_Vector := 0;
-- Set True for direct indices that are already used (True??? type???)
-- Set True for direct indexes that are already used (True??? type???)
All_Attributes : Access_Instance;
-- A linked list of all indirectly access attributes, which includes all

4
gcc/ada/sem_aggr.adb
View File

@ -636,7 +636,7 @@ package body Sem_Aggr is
Set_Parent (Index_Constraints, N);
Collect_Aggr_Bounds (N, 1);
-- Build the list of constrained indices of our aggregate itype
-- Build the list of constrained indexes of our aggregate itype
for J in 1 .. Aggr_Dimension loop
Create_Index : declare
@ -1262,7 +1262,7 @@ package body Sem_Aggr is
Error_Msg_N ("\Constraint_Error will be raised at run time?", AH);
-- You need to set AH to BH or else in the case of enumerations
-- indices we will not be able to resolve the aggregate bounds.
-- indexes we will not be able to resolve the aggregate bounds.
AH := Duplicate_Subexpr (BH);
end if;

6
gcc/ada/sem_attr.adb
View File

@ -7866,9 +7866,9 @@ package body Sem_Attr is
-- Start of processing for Resolve_Attribute
begin
-- If error during analysis, no point in continuing, except for
-- array types, where we get better recovery by using unconstrained
-- indices than nothing at all (see Check_Array_Type).
-- If error during analysis, no point in continuing, except for array
-- types, where we get better recovery by using unconstrained indexes
-- than nothing at all (see Check_Array_Type).
if Error_Posted (N)
and then Attr_Id /= Attribute_First

2
gcc/ada/sem_ch12.adb
View File

@ -9456,7 +9456,7 @@ package body Sem_Ch12 is
I2 := First_Index (Act_T);
for J in 1 .. Formal_Dimensions loop
-- If the indices of the actual were given by a subtype_mark,
-- If the indexes of the actual were given by a subtype_mark,
-- the index was transformed into a range attribute. Retrieve
-- the original type mark for checking.

10
gcc/ada/sem_ch3.adb
View File

@ -4588,11 +4588,11 @@ package body Sem_Ch3 is
Error_Msg_N ("missing index definition in array type declaration", T);
declare
Indices : constant List_Id :=
Indexes : constant List_Id :=
New_List (New_Occurrence_Of (Any_Id, Sloc (T)));
begin
Set_Discrete_Subtype_Definitions (Def, Indices);
Set_First_Index (T, First (Indices));
Set_Discrete_Subtype_Definitions (Def, Indexes);
Set_First_Index (T, First (Indexes));
return;
end;
end if;
@ -4608,7 +4608,7 @@ package body Sem_Ch3 is
end if;
-- In the case of an unconstrained array the parser has already verified
-- that all the indices are unconstrained but we still need to make sure
-- that all the indexes are unconstrained but we still need to make sure
-- that the element type is constrained.
if Is_Indefinite_Subtype (Element_Type) then
@ -10423,7 +10423,7 @@ package body Sem_Ch3 is
function Build_Constrained_Array_Type
(Old_Type : Entity_Id) return Entity_Id;
-- If Old_Type is an array type, one of whose indices is constrained
-- If Old_Type is an array type, one of whose indexes is constrained
-- by a discriminant, build an Itype whose constraint replaces the
-- discriminant with its value in the constraint.

9
gcc/ada/sem_ch4.adb
View File

@ -2877,6 +2877,11 @@ package body Sem_Ch4 is
if All_Errors_Mode then
Error_Msg_Sloc := Sloc (Nam);
if Etype (Formal) = Any_Type then
Error_Msg_N
("there is no legal actual parameter", Actual);
end if;
if Is_Overloadable (Nam)
and then Present (Alias (Nam))
and then not Comes_From_Source (Nam)
@ -6375,8 +6380,8 @@ package body Sem_Ch4 is
if Present (Arr_Type) then
-- Verify that the actuals (excluding the object)
-- match the types of the indices.
-- Verify that the actuals (excluding the object) match the types
-- of the indexes.
declare
Actual : Node_Id;

2
gcc/ada/sem_ch4.ads
View File

@ -61,6 +61,6 @@ package Sem_Ch4 is
-- c) A conversion
-- d) A slice
-- The resolution of the construct requires some semantic information
-- on the prefix and the indices.
-- on the prefix and the indexes.
end Sem_Ch4;

2
gcc/ada/sem_ch5.adb
View File

@ -643,7 +643,7 @@ package body Sem_Ch5 is
or else Nkind (N) /= N_Block_Statement)
then
-- Assignment verifies that the length of the Lsh and Rhs are equal,
-- but of course the indices do not have to match. If the right-hand
-- but of course the indexes do not have to match. If the right-hand
-- side is a type conversion to an unconstrained type, a length check
-- is performed on the expression itself during expansion. In rare
-- cases, the redundant length check is computed on an index type

2
gcc/ada/sem_res.adb
View File

@ -5171,7 +5171,7 @@ package body Sem_Res is
-- An Ada 2005 prefixed call to a primitive operation
-- whose first parameter is the prefix. This prefix was
-- prepended to the parameter list, which is actually a
-- list of indices. Remove the prefix in order to build
-- list of indexes. Remove the prefix in order to build
-- the proper indexed component.
Index_Node :=

2
gcc/ada/sem_util.adb
View File

@ -2367,7 +2367,7 @@ package body Sem_Util is
and then Denotes_Same_Object (Hi1, Hi2);
end;
-- Literals will appear as indices. Isn't this where we should check
-- Literals will appear as indexes. Isn't this where we should check
-- Known_At_Compile_Time at least if we are generating warnings ???
elsif Nkind (A1) = N_Integer_Literal then