diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-08 16:54:26 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-08 16:54:26 +1200 |
| commit | 866bd03532013b163ec55d0814c4bf562b9c5cac (patch) | |
| tree | 8d33b52f9cdb376d6ab118e238a6c82aca8c79a2 /example | |
| parent | 375802cb41f9189707c8742e6f802c78d934f0a5 (diff) | |
Diffstat (limited to 'example')
| -rw-r--r-- | example/format_options.adb | 2 | ||||
| -rw-r--r-- | example/info_list.adb | 2 |
2 files changed, 2 insertions, 2 deletions
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 |