From 79c1381d198f5b4ae1b75210971a8ccea1049bad Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 26 Jul 2023 16:43:15 +1200
Subject: File_Info now a tagged type for ease of use

---
 src/libsndfile-commands.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/libsndfile-commands.adb')

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;
-- 
cgit