Do not force initialization of Connection_Type

Be less strict and allow the declaration of an 'unconnected' connection.
This is e.g. required to use the type in a record field (which is
perfectly legal if the record is constructed correctly).

diff --git a/src/d_bus-connection.ads b/src/d_bus-connection.ads
index 84f8692f52a9debea882e704c4a952a0afb8840c..e331b563c6198e61e2b6d28e479c60ba6422e6bc 100644 (file)
--- a/src/d_bus-connection.ads
+++ b/src/d_bus-connection.ads
@@ -35,7 +35,7 @@ with D_Bus.Types;
 
 package D_Bus.Connection is
 
 
 package D_Bus.Connection is
 

-   type Connection_Type (<>) is limited private;
+   type Connection_Type is limited private;

    --  D-Bus connection.
 
    function Connect (Bus : Bus_Type := Bus_Session) return Connection_Type;
    --  D-Bus connection.
 
    function Connect (Bus : Bus_Type := Bus_Session) return Connection_Type;