mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-19 18:10:54 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Remove unused component in record type

Browse Source 
The component has been unused for a while.  No functional changes.

2019-08-13  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* ali.ads (Linker_Option_Record): Remove Original_Pos component.
	* ali.adb (Scan_ALI): Do not set it.

From-SVN: r274360
This commit is contained in:
Eric Botcazou 2019-08-13 08:08:52 +00:00 committed by Pierre-Marie de Rodat
parent ed5786a745
commit 519acab098
3 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2019-08-13 Eric Botcazou <ebotcazou@adacore.com>
* ali.ads (Linker_Option_Record): Remove Original_Pos component.
* ali.adb (Scan_ALI): Do not set it.
2019-08-13 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch3.adb (Build_Derived_Concurrent_Type): Add a couple of

3
gcc/ada/ali.adb
View File

@ -3204,9 +3204,6 @@ package body ALI is
Linker_Options.Table (Linker_Options.Last).Internal_File :=
Is_Internal_File_Name (F);
Linker_Options.Table (Linker_Options.Last).Original_Pos :=
Linker_Options.Last;
end if;
-- If there are notes present, scan them

14
gcc/ada/ali.ads
View File

@ -725,15 +725,11 @@ package ALI is
-- Set True if the linker options are from an internal file. This is
-- used to insert certain standard entries after all the user entries
-- but before the entries from the run-time.
Original_Pos : Positive;
-- Keep track of original position in the linker options table. This
-- is used to implement a stable sort when we sort the linker options
-- table.
end record;
-- The indexes of active entries in this table range from 1 to the
-- value of Linker_Options.Last. The zero'th element is for sort call.
-- The indexes of active entries in this table range from 1 to
-- the value of Linker_Options.Last. The zero'th element is for
-- convenience if the table needs to be sorted.
package Linker_Options is new Table.Table (
Table_Component_Type => Linker_Option_Record,
@ -770,8 +766,8 @@ package ALI is
end record;
-- The indexes of active entries in this table range from 1 to the
-- value of Linker_Options.Last. The zero'th element is for convenience
-- if the table needs to be sorted.
-- value of Notes.Last. The zero'th element is for convenience if
-- the table needs to be sorted.
package Notes is new Table.Table (
Table_Component_Type => Notes_Record,