From 8f1fe1f8cee02a23f50c17550032120a157d974b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 20 Jan 2017 11:32:34 +0100 Subject: [PATCH] Minor reformatting. From-SVN: r244697 --- gcc/ada/scn.ads | 6 +++--- gcc/ada/sem_prag.adb | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/scn.ads b/gcc/ada/scn.ads index ea7b22be9f1..f5628a9e4e3 100644 --- a/gcc/ada/scn.ads +++ b/gcc/ada/scn.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -44,8 +44,8 @@ package Scn is -- source index for reading the configuration pragma file. function Determine_Token_Casing return Casing_Type; - -- Determines the casing style of the current token, which is - -- either a keyword or an identifier. See also package Casing. + -- Determines the casing style of the current token, which is either a + -- keyword or an identifier. See also package Casing. procedure Post_Scan; -- Create nodes for tokens: Char_Literal, Identifier, Real_Literal, diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 9d2490fb937..f42d3f98bf2 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -21348,7 +21348,7 @@ package body Sem_Prag is procedure Set_SPARK_Context is begin - SPARK_Mode := Mode_Id; + SPARK_Mode := Mode_Id; SPARK_Mode_Pragma := N; end Set_SPARK_Context; -- 2.30.2