exp_disp.adb (Export_DT): Addition of a new argument (Index)...

[gcc.git] / gcc / ada / atree.ads

diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads
index ab9fdb4bf1faa6602556b137b30540c66c20ad15..824e62c4c7afadf9a356d9ae3808bdc41586a60a 100644 (file)
--- a/gcc/ada/atree.ads
+++ b/gcc/ada/atree.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, 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- --
@@ -1060,6 +1060,9 @@ package Atree is
       function Elist25 (N : Node_Id) return Elist_Id;
       pragma Inline (Elist25);
 
+      function Elist26 (N : Node_Id) return Elist_Id;
+      pragma Inline (Elist26);
+
       function Name1 (N : Node_Id) return Name_Id;
       pragma Inline (Name1);
 
@@ -2090,6 +2093,9 @@ package Atree is
       procedure Set_Elist25 (N : Node_Id; Val : Elist_Id);
       pragma Inline (Set_Elist25);
 
+      procedure Set_Elist26 (N : Node_Id; Val : Elist_Id);
+      pragma Inline (Set_Elist26);
+
       procedure Set_Name1 (N : Node_Id; Val : Name_Id);
       pragma Inline (Set_Name1);