diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-01-20 12:41:16 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-06 03:51:36 -0400 |
| commit | ef4a0de035ac0eb7ede9e6581c3aa40f8596e8bf (patch) | |
| tree | 173b0298c8492ebbafa12422946a691b95930295 /gcc/ada/sem_case.ads | |
| parent | e84d25c9955dfe71b401f85291a56fa7f6375b0c (diff) | |
| download | gcc-ef4a0de035ac0eb7ede9e6581c3aa40f8596e8bf.zip gcc-ef4a0de035ac0eb7ede9e6581c3aa40f8596e8bf.tar.gz gcc-ef4a0de035ac0eb7ede9e6581c3aa40f8596e8bf.tar.bz2 | |
[Ada] Use high-level Make_Character_Literal instead of low-level New_Node
gcc/ada/
* sem_case.adb (Missing_Choice): Fix typo in comment.
(Lit_Of): Simplify with Make_Character_Literal.
(Check_Choices): Remove extra spaces in parameter
specifications.
* sem_case.ads: Same reformatting.
Diffstat (limited to 'gcc/ada/sem_case.ads')
| -rw-r--r-- | gcc/ada/sem_case.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index 00b7dd3..7bde09d 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -125,10 +125,10 @@ package Sem_Case is package Generic_Check_Choices is procedure Check_Choices - (N : Node_Id; - Alternatives : List_Id; - Subtyp : Entity_Id; - Others_Present : out Boolean); + (N : Node_Id; + Alternatives : List_Id; + Subtyp : Entity_Id; + Others_Present : out Boolean); -- From a case expression, case statement, or record variant N, this -- routine analyzes the corresponding list of discrete choices which -- appear in each element of the list Alternatives (for the variant |