summaryrefslogtreecommitdiff
path: root/gcc/ada/elists.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2015-03-02 11:07:34 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2015-03-02 11:07:34 +0000
commite8600b0de788b70622a01fdc40344ed7ce92db33 (patch)
tree3d413ee4bbd4502e0880da234c42c2e34eb53a76 /gcc/ada/elists.adb
parentc1bccde67b74999e40a6d7a641430537444cf5c5 (diff)
downloadgcc-e8600b0de788b70622a01fdc40344ed7ce92db33.tar.gz
2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Ensure_Aggregate_Form): Ensure that the name denoted by the Chars of a pragma argument association has the proper Sloc when converted into an aggregate. 2015-03-02 Bob Duff <duff@adacore.com> * sem_ch6.adb (Check_Private_Overriding): Capture Incomplete_Or_Partial_View in a constant. This is cleaner and more efficient. 2015-03-02 Gary Dismukes <dismukes@adacore.com> * einfo.ads, exp_unst.ads: Minor reformatting. 2015-03-02 Ed Schonberg <schonberg@adacore.com> * a-strsea.adb (Find_Token): Ensure that the range of iteration does not perform any improper character access. This prevents erroneous access in the unusual case of an empty string target and a From parameter less than Source'First. 2015-03-02 Robert Dewar <dewar@adacore.com> * elists.adb (List_Length): Fix incorrect result. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@221111 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/elists.adb')
-rw-r--r--gcc/ada/elists.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/elists.adb b/gcc/ada/elists.adb
index 4d332644b74..5b1f88cdd74 100644
--- a/gcc/ada/elists.adb
+++ b/gcc/ada/elists.adb
@@ -302,6 +302,7 @@ package body Elists is
if No (Elmt) then
return N;
else
+ N := N + 1;
Next_Elmt (Elmt);
end if;
end loop;