diff options
Diffstat (limited to 'src/portaudio-streams.adb')
| -rw-r--r-- | src/portaudio-streams.adb | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/src/portaudio-streams.adb b/src/portaudio-streams.adb index e067d24..d74fb08 100644 --- a/src/portaudio-streams.adb +++ b/src/portaudio-streams.adb @@ -266,13 +266,13 @@ package body Portaudio.Streams is for Stream_Actual'Address use Storage.To_Address (Userdata); pragma Import (Ada, Stream_Actual); - Input_Buffer : Buffer := + Input_Buffer : constant Buffer := (My_Sam_Code => Stream_Actual.Sin, My_Channels => Natural (Stream_Actual.Chin), My_Frames => Frame_Amount (Frame_Count), My_Array => Storage.To_Address (Input_Ptr)); - Output_Buffer : Buffer := + Output_Buffer : constant Buffer := (My_Sam_Code => Stream_Actual.Sout, My_Channels => Natural (Stream_Actual.Chout), My_Frames => Frame_Amount (Frame_Count), @@ -494,9 +494,9 @@ package body Portaudio.Streams is end Put; function Wrap - (Store : aliased in Float_32_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in out Float_32_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -507,9 +507,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : aliased in Int_32_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in out Int_32_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -520,9 +520,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : aliased in Int_24_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in out Int_24_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -533,9 +533,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : aliased in Int_16_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in out Int_16_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -546,9 +546,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : aliased in Int_8_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in out Int_8_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -559,9 +559,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : aliased in UInt_8_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in out UInt_8_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -623,9 +623,9 @@ package body Portaudio.Streams is is Code : Interfaces.C.int; package Param_Conversions is new System.Address_To_Access_Conversions (Parameters); - Input_Address : System.Address := + Input_Address : constant System.Address := Param_Conversions.To_Address (Param_Conversions.Object_Pointer (Input)); - Output_Address : System.Address := + Output_Address : constant System.Address := Param_Conversions.To_Address (Param_Conversions.Object_Pointer (Output)); begin Code := pa_is_format_supported |