File_Info now a tagged type for ease of useHEADmaster

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;