diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-08-13 08:08:52 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-08-13 08:08:52 +0000 |
| commit | 519acab098317f6eab49b612e49d8fcc6562da8f (patch) | |
| tree | c83891792a83d95b5dc60954f60e3e9d829e98ce /gcc/ada/ali.ads | |
| parent | ed5786a74537bde38eba66b44fa0aa88b3d2ae89 (diff) | |
| download | gcc-519acab098317f6eab49b612e49d8fcc6562da8f.zip gcc-519acab098317f6eab49b612e49d8fcc6562da8f.tar.gz gcc-519acab098317f6eab49b612e49d8fcc6562da8f.tar.bz2 | |
[Ada] Remove unused component in record type
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
Diffstat (limited to 'gcc/ada/ali.ads')
| -rw-r--r-- | gcc/ada/ali.ads | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index fc6e592..22bf8a2 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -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, |