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/device_list.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'example/device_list.adb') diff --git a/example/device_list.adb b/example/device_list.adb index d92d2c4..329b29f 100644 --- a/example/device_list.adb +++ b/example/device_list.adb @@ -29,7 +29,7 @@ procedure Device_List is (Num : in Integer) return String is - Test_Out : String := Integer'Image (Num); + Test_Out : constant String := Integer'Image (Num); begin if Test_Out (Test_Out'First) = ' ' then return Test_Out (Test_Out'First + 1 .. Test_Out'Last); @@ -63,7 +63,7 @@ procedure Device_List is (In_Params : access Paud.Streams.Parameters; Out_Params : access Paud.Streams.Parameters) is - Standard_Sample_Rates : array (Positive range <>) of Paud.Hertz := + Standard_Sample_Rates : constant array (Positive range <>) of Paud.Hertz := (8000.0, 9600.0, 11025.0, 12000.0, 16000.0, 22050.0, 24000.0, 32000.0, 44100.0, 48000.0, 88200.0, 96000.0, 192000.0); Put_Counter : Natural := 0; -- cgit