diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-26 16:43:15 +1200 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-26 16:43:15 +1200 |
commit | 79c1381d198f5b4ae1b75210971a8ccea1049bad (patch) | |
tree | 05d9565ce5ec6327520de6e8d37470aa7b982fd2 /src/libsndfile-commands.adb | |
parent | a0ff8c910377207db64d4c7d5eaa76130f41f5f5 (diff) |
Diffstat (limited to 'src/libsndfile-commands.adb')
-rw-r--r-- | src/libsndfile-commands.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/libsndfile-commands.adb b/src/libsndfile-commands.adb index 4ccfb28..61e5f48 100644 --- a/src/libsndfile-commands.adb +++ b/src/libsndfile-commands.adb @@ -234,7 +234,7 @@ package body Libsndfile.Commands is function asfc_get_current_sf_info (File : in System.Address; - Info : out File_Info) + Info : out C_File_Info) return Interfaces.C.int; pragma Import (C, asfc_get_current_sf_info, "asfc_get_current_sf_info"); @@ -441,7 +441,7 @@ package body Libsndfile.Commands is Result : File_Info; Code : Interfaces.C.int; begin - Code := asfc_get_current_sf_info (File.Ptr, Result); + Code := asfc_get_current_sf_info (File.Ptr, Result.Data); if Code /= 0 then Raise_Error (Code); raise Program_Error; |