From 8af64459f397e5037dd7e25317491edad39d8006 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 7 Mar 2015 07:30:07 +0100
Subject: Implement ticket 37: add switch -gNAME=VAL to override top entity
 generics.

---
 src/grt/grt-values.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/grt/grt-values.adb')

diff --git a/src/grt/grt-values.adb b/src/grt/grt-values.adb
index 3d703bc85..2454e175e 100644
--- a/src/grt/grt-values.adb
+++ b/src/grt/grt-values.adb
@@ -61,7 +61,7 @@ package body Grt.Values is
    --  Convert C to lowercase.
    function To_LC (C : in Character) return Character is
    begin
-      if C >= 'A' and then C <= 'Z' then
+      if C in 'A' .. 'Z' then
          return Character'Val
            (Character'Pos (C) + Character'Pos ('a') - Character'Pos ('A'));
       else
-- 
cgit v1.2.3