2011-10-16 Tristan Gingold <gingold@adacore.com>

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

diff --git a/gcc/ada/g-mbdira.ads b/gcc/ada/g-mbdira.ads
index c29667e..c415a24 100644 (file)
--- a/gcc/ada/g-mbdira.ads
+++ b/gcc/ada/g-mbdira.ads
@@ -111,7 +111,12 @@ private
       Scl : Flt := Scal;
    end record;
 
+   type Writable_Access (Self : access Generator) is limited null record;
+   --  Auxiliary type to make Generator a self-referential type
+
    type Generator is limited record
+      Writable  : Writable_Access (Generator'Access);
+      --  This self reference allows functions to modify Generator arguments
       Gen_State : State;
    end record;