From 6616e390695caad491386d19621b4014efaf394f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 27 Apr 2016 13:15:25 +0000 Subject: sinput.ads, [...]: Minor editing. 2016-04-27 Arnaud Charlet * sinput.ads, a-cfdlli.adb, a-crbtgo.adb, a-chtgop.adb, a-cbhama.adb, a-rbtgbo.adb, a-crdlli.adb, a-chtgbo.adb: Minor editing. From-SVN: r235502 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/a-cbhama.adb | 6 +++--- gcc/ada/a-cfdlli.adb | 4 ++-- gcc/ada/a-chtgbo.adb | 4 ++-- gcc/ada/a-chtgop.adb | 2 +- gcc/ada/a-crbtgo.adb | 4 ++-- gcc/ada/a-crdlli.adb | 4 ++-- gcc/ada/a-rbtgbo.adb | 4 ++-- gcc/ada/sinput.ads | 6 +++--- 9 files changed, 22 insertions(+), 17 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1e3b045..cdc9cb8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2016-04-27 Arnaud Charlet + + * sinput.ads, a-cfdlli.adb, a-crbtgo.adb, a-chtgop.adb, a-cbhama.adb, + a-rbtgbo.adb, a-crdlli.adb, a-chtgbo.adb: Minor editing. + 2016-04-27 Bob Duff * a-chtgop.adb (Adjust): Zero the tampering counts on assignment, diff --git a/gcc/ada/a-cbhama.adb b/gcc/ada/a-cbhama.adb index 86c57e7..02c1901 100644 --- a/gcc/ada/a-cbhama.adb +++ b/gcc/ada/a-cbhama.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-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- -- @@ -35,9 +35,9 @@ pragma Elaborate_All (Ada.Containers.Hash_Tables.Generic_Bounded_Keys); with Ada.Containers.Helpers; use Ada.Containers.Helpers; -with Ada.Containers.Prime_Numbers; use Ada.Containers.Prime_Numbers; +with Ada.Containers.Prime_Numbers; use Ada.Containers.Prime_Numbers; -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Bounded_Hashed_Maps is diff --git a/gcc/ada/a-cfdlli.adb b/gcc/ada/a-cfdlli.adb index 6fed4cc..a7322a1 100644 --- a/gcc/ada/a-cfdlli.adb +++ b/gcc/ada/a-cfdlli.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2010-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2010-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- -- @@ -25,7 +25,7 @@ -- . -- ------------------------------------------------------------------------------ -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Formal_Doubly_Linked_Lists with SPARK_Mode => Off diff --git a/gcc/ada/a-chtgbo.adb b/gcc/ada/a-chtgbo.adb index f4f7c1c..034b592 100644 --- a/gcc/ada/a-chtgbo.adb +++ b/gcc/ada/a-chtgbo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-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- -- @@ -27,7 +27,7 @@ -- This unit was originally developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Hash_Tables.Generic_Bounded_Operations is diff --git a/gcc/ada/a-chtgop.adb b/gcc/ada/a-chtgop.adb index bdf1c5b..53b564f 100644 --- a/gcc/ada/a-chtgop.adb +++ b/gcc/ada/a-chtgop.adb @@ -30,7 +30,7 @@ with Ada.Containers.Prime_Numbers; with Ada.Unchecked_Deallocation; -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Hash_Tables.Generic_Operations is diff --git a/gcc/ada/a-crbtgo.adb b/gcc/ada/a-crbtgo.adb index 0307961..1843b78 100644 --- a/gcc/ada/a-crbtgo.adb +++ b/gcc/ada/a-crbtgo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-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- -- @@ -34,7 +34,7 @@ -- Publisher: The MIT Press (June 18, 1990) -- ISBN: 0262031418 -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Red_Black_Trees.Generic_Operations is diff --git a/gcc/ada/a-crdlli.adb b/gcc/ada/a-crdlli.adb index 0c6f5dc..f228ef0 100644 --- a/gcc/ada/a-crdlli.adb +++ b/gcc/ada/a-crdlli.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-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- -- @@ -27,7 +27,7 @@ -- This unit was originally developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Restricted_Doubly_Linked_Lists is diff --git a/gcc/ada/a-rbtgbo.adb b/gcc/ada/a-rbtgbo.adb index acf2ccb..8306399e 100644 --- a/gcc/ada/a-rbtgbo.adb +++ b/gcc/ada/a-rbtgbo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-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- -- @@ -35,7 +35,7 @@ -- Publisher: The MIT Press (June 18, 1990) -- ISBN: 0262031418 -with System; use type System.Address; +with System; use type System.Address; package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 18bc1b1..24f1a68 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2015, 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- -- @@ -157,7 +157,7 @@ package Sinput is -- separate main units. -- The entries in the table are accessed using a Source_File_Index that - -- ranges from 1 to Last_Source_File. Each entry has the following fields + -- ranges from 1 to Last_Source_File. Each entry has the following fields. -- Note: fields marked read-only are set by Sinput or one of its child -- packages when a source file table entry is created, and cannot be @@ -387,7 +387,7 @@ package Sinput is -- As described in Sem_Ch12, a generic instantiation involves making a -- copy of the tree of the generic template. The source locations in - -- this tree directly reference the source of the template. However it + -- this tree directly reference the source of the template. However, it -- is also possible to find the location of the instantiation. -- This is achieved as follows. When an instantiation occurs, a new entry -- cgit v1.1