From ed02634895209b9a937297838c1ae04f072f9c79 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 9 Oct 2023 12:14:14 +1300 Subject: Figured out and fixed up array aliasing issue --- src/portaudio-streams.adb | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) (limited to 'src/portaudio-streams.adb') diff --git a/src/portaudio-streams.adb b/src/portaudio-streams.adb index 6b05008..18a091e 100644 --- a/src/portaudio-streams.adb +++ b/src/portaudio-streams.adb @@ -485,9 +485,9 @@ package body Portaudio.Streams is end Put; function Wrap - (Store : in Float_32_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in Float_32_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -498,9 +498,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : in Int_32_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in Int_32_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -511,9 +511,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : in Int_24_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in Int_24_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -524,9 +524,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : in Int_16_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in Int_16_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -537,9 +537,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : in Int_8_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in Int_8_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return @@ -550,9 +550,9 @@ package body Portaudio.Streams is end Wrap; function Wrap - (Store : in UInt_8_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : aliased in UInt_8_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return -- cgit