diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-10-07 19:51:28 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-10-07 19:51:28 +1300 |
| commit | 07e7b817c59c3dce263bfb89b51248316c343f0e (patch) | |
| tree | 5ebe3664317c69f267ad57e4c676ba3f40ac5c6c /src/portaudio-devices.adb | |
| parent | 87b89d768d367a475bb553de295ac867909c28c9 (diff) | |
Now using Integer_Address for C interface
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 |