Deleted an unused type.

1 files changed, 0 insertions, 1 deletions

diff --git a/milter_api.adb b/milter_api.adb
index 0059a4d..48316cc 100644
--- a/milter_api.adb
+++ b/milter_api.adb
@@ -863,7 +863,6 @@ package body Milter_API is
    pragma export(C, milter_api_address_type_unknown);
 
    function Address(Endpoint : Sockaddr) return IP_Address is
-      type Unsigned_8_Pointer is access Unsigned_8;
       function milter_api_address_type(endpoint : Sockaddr) return Unsigned_8;
       procedure milter_api_ipv4_address(endpoint : in  Sockaddr;
                                         buffer   : out Byte_Array);