diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-11 13:23:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-11 13:23:39 +0000 |
| commit | c1381b7ac21712cc179c6c1c51bda51212a3016f (patch) | |
| tree | 679f0ea8228adb0e349f20c09b30aeddd244dc7b /gcc/ada/atree.ads | |
| parent | cba2ae82b16bf383559d47de17d9c6941ab5be81 (diff) | |
| download | gcc-c1381b7ac21712cc179c6c1c51bda51212a3016f.tar.gz | |
2013-04-11 Robert Dewar <dewar@adacore.com>
* exp_attr.adb, sem_res.adb, sem_attr.adb: Minor reformatting.
2013-04-11 Robert Dewar <dewar@adacore.com>
* atree.adb, atree.ads (Node31): New function.
(Set_Node31): New procedure.
2013-04-11 Robert Dewar <dewar@adacore.com>
* errout.ads: Minor typo correction.
2013-04-11 Javier Miranda <miranda@adacore.com>
* einfo.ad[sb] (Thunk_Entity/Set_Thunk_Entity): New attribute.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@197792 138bc75d-0d04-0410-961f-82ee72b054a4
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 fc60293d65b..07e8e512a57 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, 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- -- @@ -1171,6 +1171,9 @@ package Atree is function Node30 (N : Node_Id) return Node_Id; pragma Inline (Node30); + function Node31 (N : Node_Id) return Node_Id; + pragma Inline (Node31); + function List1 (N : Node_Id) return List_Id; pragma Inline (List1); @@ -2453,6 +2456,9 @@ package Atree is procedure Set_Node30 (N : Node_Id; Val : Node_Id); pragma Inline (Set_Node30); + procedure Set_Node31 (N : Node_Id; Val : Node_Id); + pragma Inline (Set_Node31); + procedure Set_List1 (N : Node_Id; Val : List_Id); pragma Inline (Set_List1); |