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-devices.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/portaudio-devices.adb') diff --git a/src/portaudio-devices.adb b/src/portaudio-devices.adb index 7e0e5e6..aa697ad 100644 --- a/src/portaudio-devices.adb +++ b/src/portaudio-devices.adb @@ -45,7 +45,7 @@ package body Portaudio.Devices is function pa_get_host_api_info (Index : in Interfaces.C.int) - return System.Address; + return Storage.Integer_Address; pragma Import (C, pa_get_host_api_info, "Pa_GetHostApiInfo"); function pa_host_api_type_id_to_host_api_index @@ -74,7 +74,7 @@ package body Portaudio.Devices is function pa_get_device_info (Index : in Interfaces.C.int) - return System.Address; + return Storage.Integer_Address; pragma Import (C, pa_get_device_info, "Pa_GetDeviceInfo"); @@ -288,7 +288,7 @@ package body Portaudio.Devices is is Result : System.Address; begin - Result := pa_get_host_api_info (Interfaces.C.int (Index) - 1); + Result := Storage.To_Address (pa_get_host_api_info (Interfaces.C.int (Index) - 1)); if Result = System.Null_Address then raise General_Failure; else @@ -375,7 +375,7 @@ package body Portaudio.Devices is is Result : System.Address; begin - Result := pa_get_device_info (Interfaces.C.int (Index) - 1); + Result := Storage.To_Address (pa_get_device_info (Interfaces.C.int (Index) - 1)); if Result = System.Null_Address then raise General_Failure; else -- cgit