procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Simplify detection of alphabetic characters with membership test

Browse source 
gcc/ada/

	* sem_prag.adb (Adjust_External_Name_Case): Use membership test.
This commit is contained in:
Piotr Trojanek 2021-12-02 15:44:57 +01:00 • committed by Pierre-Marie de Rodat
parent 2af751b3b8
commit a7b4fbd9b4
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/ada/sem_prag.adb
View file

@ -398,14 +398,12 @@ package body Sem_Prag is
CC := Get_String_Char (Strval (N), J);
if Opt.External_Name_Exp_Casing = Uppercase
and then CC >= Get_Char_Code ('a')
and then CC <= Get_Char_Code ('z')
and then CC in Get_Char_Code ('a') .. Get_Char_Code ('z')
then
Store_String_Char (CC - 32);
elsif Opt.External_Name_Exp_Casing = Lowercase
and then CC >= Get_Char_Code ('A')
and then CC <= Get_Char_Code ('Z')
and then CC in Get_Char_Code ('A') .. Get_Char_Code ('Z')
then
Store_String_Char (CC + 32);