From 59a2fd979cfb79e9f6cd0699b0ad05814279e2a7 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 20 Jul 2023 23:11:17 +1200 Subject: Changed array datatypes for better interop --- src/libsndfile.ads | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/libsndfile.ads b/src/libsndfile.ads index 2c0866c..d88c06d 100644 --- a/src/libsndfile.ads +++ b/src/libsndfile.ads @@ -7,6 +7,10 @@ pragma Ada_2012; +with + + Interfaces; + private with Interfaces.C, @@ -28,12 +32,12 @@ package Libsndfile is type Seek_From is (From_Start, From_Current, From_End); - type Short_Data is array (Positive range <>) of Short_Integer; - type Integer_Data is array (Positive range <>) of Integer; - type Float_Data is array (Positive range <>) of Float; - type Double_Data is array (Positive range <>) of Long_Float; + type Short_Data is array (Positive range <>) of Interfaces.Integer_16; + type Integer_Data is array (Positive range <>) of Interfaces.Integer_32; + type Float_Data is array (Positive range <>) of Interfaces.IEEE_Float_32; + type Double_Data is array (Positive range <>) of Interfaces.IEEE_Float_64; - type Raw_Data is new String; + type Raw_Data is array (Positive range <>) of Interfaces.Unsigned_8; type Metadata is (Title_String, -- cgit