From b506d60f37c7bb5a870ca838072afe816fc7aa61 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 9 May 2025 09:32:20 +1200 Subject: Constants marked constant, redundant with clauses no longer redundant --- example/sine_block.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'example/sine_block.adb') diff --git a/example/sine_block.adb b/example/sine_block.adb index 538d1d9..e6d3d21 100644 --- a/example/sine_block.adb +++ b/example/sine_block.adb @@ -30,7 +30,7 @@ procedure Sine_Block is -- Note how this array specifies the bounds in the initial value rather than the type. -- This is important because otherwise the aliasing would cause subtype mismatch errors. Sample_Array : aliased Pstm.Float_32_Array := (1 .. Natural (Per_Buffer) * Channels => 0.0); - Sample_Buffer : Pstm.Buffer := Pstm.Wrap (Sample_Array, Per_Buffer, Channels); + Sample_Buffer : constant Pstm.Buffer := Pstm.Wrap (Sample_Array, Per_Buffer, Channels); type Table_Index is mod 200; Sine_Table : array (Table_Index) of Interfaces.IEEE_Float_32; -- cgit