diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-03-02 11:03:29 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-03-02 12:03:29 +0100 |
| commit | 5a271a7f3a2983e1529ea5c7f98d6ea5d6b113cf (patch) | |
| tree | de54e6e3eb711dc460a5257554759c053564c7c3 /gcc/ada/elists.ads | |
| parent | aef308d0d6a4d64fb220d88d0e7b736d70fd88da (diff) | |
| download | gcc-5a271a7f3a2983e1529ea5c7f98d6ea5d6b113cf.zip gcc-5a271a7f3a2983e1529ea5c7f98d6ea5d6b113cf.tar.gz gcc-5a271a7f3a2983e1529ea5c7f98d6ea5d6b113cf.tar.bz2 | |
debug.adb: Document new debug flag -gnatd.1.
2015-03-02 Robert Dewar <dewar@adacore.com>
* debug.adb: Document new debug flag -gnatd.1.
* einfo.ads, einfo.adb (Has_Nested_Subprogram): New flag.
(Has_Uplevel_Reference): New flag (Is_Static_Type): New flag.
(Uplevel_Reference_Noted):New flag (Uplevel_References): New field.
* elists.ads elists.adb (List_Length): New function.
* exp_ch6.adb (Expand_N_Subprogram_Body): Call Unnest_Subprogram
when appropriate (Process_Preconditions): Minor code
reorganization and reformatting
* exp_unst.ads, exp_unst.adb: New files.
* gnat1drv.adb (Adjust_Global_Switches): Set
Unnest_Subprogram_Mode if -gnatd.1
* namet.ads, namet.adb (Name_Find_Str): New version of Name_Find with
string argument.
* opt.ads (Unnest_Subprogram_Mode): New flag.
* par-ch3.adb (P_Identifier_Declarations): Fixes to -gnatd.2 handling.
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Set
Has_Nested_Subprogram flag.
* sem_ch8.adb (Find_Direct_Name): New calling sequence for
Check_Nested_Access.
(Find_Selected_Component): Minor comment addition.
* sem_util.adb (Check_Nested_Access): New version for use with Exp_Unst.
(Note_Possible_Modification): New calling sequence for
Check_Nested_Access.
* sem_util.ads (Check_Nested_Access): New version for use with Exp_Unst.
* gcc-interface/Make-lang.in (GNAT1_OBJS): Add exp_unst.o
From-SVN: r221109
Diffstat (limited to 'gcc/ada/elists.ads')
| -rw-r--r-- | gcc/ada/elists.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/elists.ads b/gcc/ada/elists.ads index 3353b9c..3daefc0 100644 --- a/gcc/ada/elists.ads +++ b/gcc/ada/elists.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -107,6 +107,9 @@ package Elists is -- Obtains the last element of the given element list or, if the list has -- no items, then No_Elmt is returned. + function List_Length (List : Elist_Id) return Nat; + -- Returns number of elements in given List + function Next_Elmt (Elmt : Elmt_Id) return Elmt_Id; pragma Inline (Next_Elmt); -- This function returns the next element on an element list. The argument |