diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:23:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:23:39 +0200 |
| commit | 59fad002d5a30da06c054b797c61e9798148dd64 (patch) | |
| tree | 679f0ea8228adb0e349f20c09b30aeddd244dc7b /gcc/ada/atree.ads | |
| parent | 289a994bb9f60f3516e8662218d79d3049b95659 (diff) | |
| download | gcc-59fad002d5a30da06c054b797c61e9798148dd64.zip gcc-59fad002d5a30da06c054b797c61e9798148dd64.tar.gz gcc-59fad002d5a30da06c054b797c61e9798148dd64.tar.bz2 | |
[multiple changes]
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.
From-SVN: r197792
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 fc60293..07e8e51 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); |