diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-06-26 18:39:06 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-06-26 18:39:06 +0000 |
| commit | 21543d4cd558cada630271a0cf3075ad7ce94cbf (patch) | |
| tree | 08bdb3f3e0a9d0f71e72bb56d9ddb7b916e7dfeb /gcc/ada/atree.ads | |
| parent | ed0bc1ffb674fe93d0df68654b5bb76869f0bc8c (diff) | |
| download | gcc-21543d4cd558cada630271a0cf3075ad7ce94cbf.tar.gz | |
2013-06-26 Basile Starynkevitch <basile@starynkevitch.net>
{{merged with trunk [4.9] svn rev. 196654-200426}}
MELT branch merged with trunk rev. 200426 using svnmerge.py
[gcc/]
2013-06-26 Basile Starynkevitch <basile@starynkevitch.net>
{{merge with trunk [4.9] svn rev. 196654-200426}}
* melt-runtime.c (melt_val2passflag): TODO_ggc_collect &
TODO_do_not_ggc_collect are conditionalized.
* melt/generated/warmelt-first+03.cc: Manually remove calls to
MELT_TRACE_EXIT_LOCATION macro.
* melt/generated/warmelt-base+03.cc: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@200430 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); |