diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-10-08 14:41:06 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-10-08 14:41:06 +1300 |
| commit | f654fd430eae581fb524bb16dc3e3eb0bfb10aef (patch) | |
| tree | 1856d608a97223566e498c4b77d43f433ff4e231 /example | |
| parent | 93e0e0a3dfaeb101b3e2eebdbdd663531fef4069 (diff) | |
Clarified aliasing requirements for buffer wrap functions
Diffstat (limited to 'example')
| -rw-r--r-- | example/sine_block.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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; |