diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-08 22:38:23 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-08 22:38:23 +1200 |
| commit | ff9d5644c4cb6772dc9b834d1fbb04614f083974 (patch) | |
| tree | 97a7700dcf4dbace8197b2a28bf2b499908db0f7 /example | |
| parent | 3ed0edef137c4b577646c35e0f5beddfb9f57555 (diff) | |
Constants marked constant, things that should be ignored are ignored
Diffstat (limited to 'example')
| -rw-r--r-- | example/read_example.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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); |