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-virtual.ads | |
parent | a0ff8c910377207db64d4c7d5eaa76130f41f5f5 (diff) |
Diffstat (limited to 'src/libsndfile-virtual.ads')
-rw-r--r-- | src/libsndfile-virtual.ads | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/libsndfile-virtual.ads b/src/libsndfile-virtual.ads index 98f88da..7c4319a 100644 --- a/src/libsndfile-virtual.ads +++ b/src/libsndfile-virtual.ads @@ -53,7 +53,7 @@ package Libsndfile.Virtual is procedure Open (File : in out Virtual_Sound_File; Mode : in File_Mode; - Info : in out File_Info; + Info : in out File_Info'Class; Length : in File_Length_Function; Seek : in Seek_Function; Read : in Read_Function; @@ -74,14 +74,11 @@ private My_Tell : Tell_Function; end record with Convention => C; - type Virtual_Sound_File is new Sound_File with record My_Virtual : Virtual_Data; end record; - - function Ada_Filelen_Hook (Data : in System.Address) return Interfaces.Integer_64; |