diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-10 17:01:22 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-10 17:01:22 +1200 |
| commit | 155b22edb53d8587656270232abde0bd90a47f6a (patch) | |
| tree | a2b6af92482b30ab11fa7db1426d6b2436b281f1 | |
| parent | 88629c7ed790c32911e8bd5f9b37792cb52aeac7 (diff) | |
Constants marked as constant
| -rw-r--r-- | src/ansi_terminal.adb | 6 |
1 files 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 |