From 866bd03532013b163ec55d0814c4bf562b9c5cac Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 8 May 2025 16:54:26 +1200
Subject: Constants marked constant, redundant with clauses removed

---
 example/format_options.adb | 2 +-
 example/info_list.adb      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'example')

diff --git a/example/format_options.adb b/example/format_options.adb
index 352d3d5..fe8c380 100644
--- a/example/format_options.adb
+++ b/example/format_options.adb
@@ -20,7 +20,7 @@ procedure Format_Options is
 
     My_Options : Libao.Option_List;
 
-    My_Format : Libao.Sample_Format := Libao.Create
+    My_Format : constant Libao.Sample_Format := Libao.Create
        (Bits           => 16,
         Rate           => 44100,
         Channels       => 4,
diff --git a/example/info_list.adb b/example/info_list.adb
index 5dcdcf0..0605f96 100644
--- a/example/info_list.adb
+++ b/example/info_list.adb
@@ -30,7 +30,7 @@ procedure Info_List is
         return String
     renames Ada.Strings.Fixed."*";
 
-    My_Information : Libao.Info_Array := Libao.Driver_Info_List;
+    My_Information : constant Libao.Info_Array := Libao.Driver_Info_List;
 
 begin
 
-- 
cgit