From 88456bc19d4362b60fbe8e37f59d70a09675098f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 6 Jan 2017 13:06:54 +0100 Subject: [PATCH] Minor reformatting. From-SVN: r244149 --- gcc/ada/checks.adb | 2 +- gcc/ada/scans.adb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index f9cb0ba..10dbbaf 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -2412,7 +2412,7 @@ package body Checks is begin Prag := Make_Pragma (Loc, - Chars => Prag_Nam, + Chars => Prag_Nam, Pragma_Argument_Associations => New_List ( Make_Pragma_Argument_Association (Loc, Chars => Name_Check, diff --git a/gcc/ada/scans.adb b/gcc/ada/scans.adb index 461a378..a4df868 100644 --- a/gcc/ada/scans.adb +++ b/gcc/ada/scans.adb @@ -140,7 +140,6 @@ package body Scans is -- Ada 2012 reserved words Set_Reserved (Name_Some, Tok_Some); - end Initialize_Ada_Keywords; ------------------ @@ -151,6 +150,7 @@ package body Scans is Tok : String := Token'Img; pragma Assert (Tok (1 .. 4) = "TOK_"); Name : String renames Tok (5 .. Tok'Last); + begin -- Convert to lower case. We don't want to add a dependence on a -- general-purpose To_Lower routine, so we convert "by hand" here. @@ -160,7 +160,7 @@ package body Scans is pragma Assert (Name (J) in 'A' .. 'Z'); Name (J) := Character'Val (Character'Pos (Name (J)) + - (Character'Pos ('a') - Character'Pos ('A'))); + (Character'Pos ('a') - Character'Pos ('A'))); end loop; return Name_Find (Name); -- 2.7.4