From ff9d5644c4cb6772dc9b834d1fbb04614f083974 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 8 May 2025 22:38:23 +1200 Subject: Constants marked constant, things that should be ignored are ignored --- example/read_example.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'example/read_example.adb') diff --git a/example/read_example.adb b/example/read_example.adb index 719e7ec..531ed5f 100644 --- a/example/read_example.adb +++ b/example/read_example.adb @@ -52,8 +52,8 @@ begin TIO.New_Line; declare - Channel_Count : Natural := My_Info.Channels; - Test_Frames : Libsndfile.Count_Type := 5; + Channel_Count : constant Natural := My_Info.Channels; + Test_Frames : constant Libsndfile.Count_Type := 5; My_Shorts : Libsndfile.Short_Data (1 .. Natural (Test_Frames) * Channel_Count); My_Integers : Libsndfile.Integer_Data (1 .. Natural (Test_Frames) * Channel_Count); -- cgit