diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-20 23:11:17 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-20 23:11:17 +1200 |
| commit | 59a2fd979cfb79e9f6cd0699b0ad05814279e2a7 (patch) | |
| tree | 65c088e4347ceea5d9439005dbca4cae38f79441 /src | |
| parent | 623d5a88343a90c7b0d3aa02fe8b06b09b537928 (diff) | |
Changed array datatypes for better interop
Diffstat (limited to 'src')
| -rw-r--r-- | src/libsndfile.ads | 14 |
1 files changed, 9 insertions, 5 deletions
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, |