From 155b22edb53d8587656270232abde0bd90a47f6a Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 10 May 2025 17:01:22 +1200 Subject: Constants marked as constant --- src/ansi_terminal.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/ansi_terminal.adb b/src/ansi_terminal.adb index c356c21..1e33454 100644 --- a/src/ansi_terminal.adb +++ b/src/ansi_terminal.adb @@ -60,8 +60,10 @@ package body ANSI_Terminal is X, Y : in Integer) return String is - Average_Density : Natural := Integer (Quantity'Ceiling (Input (X, Y).Density / 4.0)); - Bit_Index : Positive := Integer (Input (X, Y).Index) + 1; + Average_Density : constant Natural := + Integer (Quantity'Ceiling (Input (X, Y).Density / 4.0)); + Bit_Index : constant Positive := + Integer (Input (X, Y).Index) + 1; Choice : Natural; begin case Average_Density is -- cgit