diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-27 12:55:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-27 12:55:17 +0200 |
| commit | f24745230fe28ddd92d28ff681bd95d10578e3b0 (patch) | |
| tree | b1127dd8d674d84780a7a616a3d3db7b2d875a35 /gcc/ada/g-table.adb | |
| parent | 78f2b7ce3aea49818ea97974cb41029f820d0a99 (diff) | |
| download | gcc-f24745230fe28ddd92d28ff681bd95d10578e3b0.zip gcc-f24745230fe28ddd92d28ff681bd95d10578e3b0.tar.gz gcc-f24745230fe28ddd92d28ff681bd95d10578e3b0.tar.bz2 | |
[multiple changes]
2017-04-27 Steve Baird <baird@adacore.com>
* exp_ch9.adb (Expand_N_Asynchronous_Select): Initialize the Cancel
flag when it is declared in order to avoid confusing CodePeer about
the possibility of an uninitialized variable read.
2017-04-27 Ed Schonberg <schonberg@adacore.com>
* sem_dim.adb (Analyze_Dimension_Object_Declaration): There is
no dimensionality error if the subtype of the expression is
identical to the nominal subtype in the declaration, even though
the expression itself may have been constant-folded and lack a
dimension vector.
* sem_dim.ads: Add comments on setting of dimension vectors and
its interaction with node rewritings and side-effect removal.
2017-04-27 Bob Duff <duff@adacore.com>
* debug.adb: Minor comment correction.
* sem_dim.ads: Minor reformatting and typo fixes.
2017-04-27 Bob Duff <duff@adacore.com>
* g-table.adb, g-table.adsa, scos.h: From the C side, access First and
Last of the tables via function calls, rather than relying on layout
of data structures.
2017-04-27 Ed Schonberg <schonberg@adacore.com>
* exp_util.adb: No wrapper in GNATprove mode.
2017-04-27 Yannick Moy <moy@adacore.com>
* sem_res.adb (Resolve_Comparison_Op): Always
evaluate comparisons between values of universal types.
2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
* sem_elab.adb (Check_Internal_Call_Continue): Do not generate
an elaboration counter nor a check when in GNATprove mode.
* sem_util.adb (Build_Elaboration_Entity): Do not create an
elaboration counter when in GNATprove mode.
From-SVN: r247317
Diffstat (limited to 'gcc/ada/g-table.adb')
| -rw-r--r-- | gcc/ada/g-table.adb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/g-table.adb b/gcc/ada/g-table.adb index e12e84f..c5c5891 100644 --- a/gcc/ada/g-table.adb +++ b/gcc/ada/g-table.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2014, AdaCore -- +-- Copyright (C) 1998-2017, AdaCore -- -- -- -- 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- -- @@ -116,6 +116,15 @@ package body GNAT.Table is Last_Val := Last_Val - 1; end Decrement_Last; + ----------- + -- First -- + ----------- + + function First return Table_Index_Type is + begin + return Table_Low_Bound; + end First; + -------------- -- For_Each -- -------------- |