From 55bf139120db6e272543356d4307e383693d6ab9 Mon Sep 17 00:00:00 2001
From: Olivier Ramonat <olivier@ramonat.fr>
Date: Wed, 28 Nov 2007 14:03:55 +0100
Subject: [PATCH] Use Interface instead of abstract tagged null record

---
 src/db.ads | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/db.ads b/src/db.ads
index 2c0caed..85f60a7 100644
--- a/src/db.ads
+++ b/src/db.ads
@@ -28,7 +28,7 @@ package DB is
    DB_Error : exception;
    --  Raised for all errors reported by the database
 
-   type Handle is abstract tagged private;
+   type Handle is interface;
 
    --  Open / Close
 
@@ -55,7 +55,7 @@ package DB is
 
    --  Statement
 
-   type Iterator is abstract tagged private;
+   type Iterator is interface;
 
    package String_Vectors is new Containers.Indefinite_Vectors
      (Index_Type => Positive, Element_Type => String);
@@ -83,10 +83,4 @@ package DB is
    function Last_Insert_Rowid (DB : in Handle) return String is abstract;
    --  Returns the Id of the last inserted row id
 
-private
-
-   type Handle is abstract tagged null record;
-
-   type Iterator is abstract tagged null record;
-
 end DB;
-- 
2.11.4.GIT