diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-26 19:51:33 +1200 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-26 19:51:33 +1200 |
commit | 6a4fd86a07ebe97c8067e0e732efc2f708a2c6a8 (patch) | |
tree | 67e44274d89448305c3b54c204789a3e0aae0382 /src/portaudio-streams.adb | |
parent | a9eb2fc7099b78287faf5765e6b9721ce4e93fc1 (diff) |
Changed data buffer types for easier interop with other libraries
Diffstat (limited to 'src/portaudio-streams.adb')
-rw-r--r-- | src/portaudio-streams.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/portaudio-streams.adb b/src/portaudio-streams.adb index cbcbe7d..6b05008 100644 --- a/src/portaudio-streams.adb +++ b/src/portaudio-streams.adb @@ -332,7 +332,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive) - return Float_32 + return Interfaces.IEEE_Float_32 is Actual : Float_32_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -345,7 +345,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive) - return Int_32 + return Interfaces.Integer_32 is Actual : Int_32_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -358,7 +358,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive) - return Int_24 + return Integer_24 is Actual : Int_24_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -371,7 +371,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive) - return Int_16 + return Interfaces.Integer_16 is Actual : Int_16_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -384,7 +384,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive) - return Int_8 + return Interfaces.Integer_8 is Actual : Int_8_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -397,7 +397,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive) - return UInt_8 + return Interfaces.Unsigned_8 is Actual : UInt_8_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -410,7 +410,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive; - Value : in Float_32) + Value : in Interfaces.IEEE_Float_32) is Actual : Float_32_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -423,7 +423,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive; - Value : in Int_32) + Value : in Interfaces.Integer_32) is Actual : Int_32_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -436,7 +436,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive; - Value : in Int_24) + Value : in Integer_24) is Actual : Int_24_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -449,7 +449,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive; - Value : in Int_16) + Value : in Interfaces.Integer_16) is Actual : Int_16_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -462,7 +462,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive; - Value : in Int_8) + Value : in Interfaces.Integer_8) is Actual : Int_8_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; @@ -475,7 +475,7 @@ package body Portaudio.Streams is (Store : in Buffer; Frame : in Frame_Amount; Channel : in Positive; - Value : in UInt_8) + Value : in Interfaces.Unsigned_8) is Actual : UInt_8_Array (1 .. Store.My_Channels * Integer (Store.My_Frames)); for Actual'Address use Store.My_Array; |