diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-03-02 12:20:29 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-03-02 12:20:29 +0100 |
| commit | 3830827c54e72b96400c9f9803b5518e8fb9f23d (patch) | |
| tree | a95495c02cb514ca0b3c56effe563a65532db7f4 /gcc/ada/atree.ads | |
| parent | 024d33d837c172088236be33fd52b7a6ac8e4e9d (diff) | |
| download | gcc-3830827c54e72b96400c9f9803b5518e8fb9f23d.zip gcc-3830827c54e72b96400c9f9803b5518e8fb9f23d.tar.gz gcc-3830827c54e72b96400c9f9803b5518e8fb9f23d.tar.bz2 | |
[multiple changes]
2015-03-02 Robert Dewar <dewar@adacore.com>
* atree.ads, atree.adb (Uint24): New function
(Set_Uint24): New procedure.
* atree.h (Uint24): New macro for field access.
* back_end.adb (Call_Back_End): For now, don't call back end
if unnesting subprogs.
* einfo.adb (Activation_Record_Component): New field
(Subps_Index): New field.
* einfo.ads (Activation_Record_Component): New field
(Subps_Index): New field Minor reordering of comments into alpha order.
* exp_unst.ads, exp_unst.adb: Continued development.
2015-03-02 Gary Dismukes <dismukes@adacore.com>
* exp_disp.ads: Minor reformatting.
2015-03-02 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Chain_Use_Clause): Do not chain use clause from
ancestor to list of use clauses active in descendant unit if we
are within the private part of an intervening parent, to prevent
circularities in use clause list.
From-SVN: r221114
Diffstat (limited to 'gcc/ada/atree.ads')
| -rw-r--r-- | gcc/ada/atree.ads | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 7d2e64f..1be3266 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.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- -- @@ -1424,6 +1424,9 @@ package Atree is function Uint22 (N : Node_Id) return Uint; pragma Inline (Uint22); + function Uint24 (N : Node_Id) return Uint; + pragma Inline (Uint24); + function Ureal3 (N : Node_Id) return Ureal; pragma Inline (Ureal3); @@ -2731,6 +2734,9 @@ package Atree is procedure Set_Uint22 (N : Node_Id; Val : Uint); pragma Inline (Set_Uint22); + procedure Set_Uint24 (N : Node_Id; Val : Uint); + pragma Inline (Set_Uint24); + procedure Set_Ureal3 (N : Node_Id; Val : Ureal); pragma Inline (Set_Ureal3); |