diff options
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; |