Now using Integer_Address for C interface

1 files changed, 5 insertions, 6 deletions

diff --git a/src/portaudio.adb b/src/portaudio.adb
index 2ed90ea..1b23daa 100644
--- a/src/portaudio.adb
+++ b/src/portaudio.adb
@@ -10,8 +10,7 @@ pragma Ada_2012;
 with
 
     Ada.Strings.Fixed,
-    Interfaces.C.Strings,
-    System.Address_To_Access_Conversions;
+    Interfaces.C.Strings;
 
 use type
 
@@ -176,7 +175,7 @@ package body Portaudio is
     pragma Import (C, pa_get_version, "Pa_GetVersion");
 
     function pa_get_version_info
-        return System.Address;
+        return Storage.Integer_Address;
     pragma Import (C, pa_get_version_info, "Pa_GetVersionInfo");
 
     function pa_get_error_text
@@ -194,7 +193,7 @@ package body Portaudio is
     pragma Import (C, pa_terminate, "apa_term");
 
     function pa_get_last_host_error_info
-        return System.Address;
+        return Storage.Integer_Address;
     pragma Import (C, pa_get_last_host_error_info, "Pa_GetLastHostErrorInfo");
 
 
@@ -213,7 +212,7 @@ package body Portaudio is
         elsif Num = pa_unanticipated_host_error then
             declare
                 Info : C_Host_Error_Info;
-                for Info'Address use pa_get_last_host_error_info;
+                for Info'Address use Storage.To_Address (pa_get_last_host_error_info);
                 pragma Import (Ada, Info);
             begin
                 raise Unanticipated_Host_Error with
@@ -559,7 +558,7 @@ package body Portaudio is
     function Get_Version_Info
         return Version_Info is
     begin
-        return (Ptr => pa_get_version_info);
+        return (Ptr => Storage.To_Address (pa_get_version_info));
     end Get_Version_Info;