diff options
Diffstat (limited to 'src/portaudio-devices.adb')
-rw-r--r-- | src/portaudio-devices.adb | 8 |
1 files changed, 4 insertions, 4 deletions
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 |