Daily bump.

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-awk.ads

diff --git a/gcc/ada/g-awk.ads b/gcc/ada/g-awk.ads
index a8604a7..d6dc83e 100644 (file)
--- a/gcc/ada/g-awk.ads
+++ b/gcc/ada/g-awk.ads
@@ -229,12 +229,12 @@ package GNAT.AWK is
    --  Set the session to be used by default. This file will be used when the
    --  Session parameter in following services is not specified.
 
-   function Current_Session return Session_Type;
+   function Current_Session return not null access Session_Type;
    --  Returns the session used by default by all services. This is the
    --  latest session specified by Set_Current service or the session
    --  provided by default with this implementation.
 
-   function Default_Session return Session_Type;
+   function Default_Session return not null access Session_Type;
    --  Returns the default session provided by this package. Note that this is
    --  the session return by Current_Session if Set_Current has not been used.
 
@@ -633,6 +633,7 @@ private
 
    type Session_Type is new Ada.Finalization.Limited_Controlled with record
       Data : Session_Data_Access;
+      Self : not null access Session_Type := Session_Type'Unchecked_Access;
    end record;
 
    procedure Initialize (Session : in out Session_Type);