diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-10-09 12:14:14 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-10-09 12:14:14 +1300 |
commit | ed02634895209b9a937297838c1ae04f072f9c79 (patch) | |
tree | ba06b13d2fbab9b4d7fa7ff2b32b1ec0acc4a232 /src/portaudio-streams.adb | |
parent | f654fd430eae581fb524bb16dc3e3eb0bfb10aef (diff) |
Figured out and fixed up array aliasing issue
Diffstat (limited to 'src/portaudio-streams.adb')
-rw-r--r-- | src/portaudio-streams.adb | 36 |
1 files changed, 18 insertions, 18 deletions
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 |