From f654fd430eae581fb524bb16dc3e3eb0bfb10aef Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 8 Oct 2023 14:41:06 +1300
Subject: Clarified aliasing requirements for buffer wrap functions
---
example/sine_block.adb | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'example')
diff --git a/example/sine_block.adb b/example/sine_block.adb
index 5ff5be5..b28b7cd 100644
--- a/example/sine_block.adb
+++ b/example/sine_block.adb
@@ -27,7 +27,8 @@ procedure Sine_Block is
Channels : constant Natural := 2;
Per_Buffer : constant Pstm.Frame_Amount := 1024;
- Sample_Array : Pstm.Float_32_Array (1 .. Natural (Per_Buffer) * Channels) := (others => 0.0);
+ Sample_Array : aliased Pstm.Float_32_Array (1 .. Natural (Per_Buffer) * Channels) :=
+ (others => 0.0);
Sample_Buffer : Pstm.Buffer := Pstm.Wrap (Sample_Array, Per_Buffer, Channels);
type Table_Index is mod 200;
--
cgit