From 07e7b817c59c3dce263bfb89b51248316c343f0e Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 7 Oct 2024 19:51:28 +1300 Subject: Now using Integer_Address for C interface --- src/portaudio.adb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/portaudio.adb') 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; -- cgit