diff options
Diffstat (limited to 'example/device_list.adb')
| -rw-r--r-- | example/device_list.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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; |