diff options
| -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 |