Skip to content

R
riscv-gcc-1
Commit 6616e390 by Arnaud Charlet Committed by Arnaud Charlet
Options

sinput.ads, [...]: Minor editing. 

2016-04-27  Arnaud Charlet  <charlet@adacore.com>

	* 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
parent 6d0d18dc
Showing with 22 additions and 17 deletions
gcc/ada/ChangeLog
2016-04-27 Arnaud Charlet <charlet@adacore.com>
* 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 <duff@adacore.com> 2016-04-27 Bob Duff <duff@adacore.com>
* a-chtgop.adb (Adjust): Zero the tampering counts on assignment, * a-chtgop.adb (Adjust): Zero the tampering counts on assignment,
......
gcc/ada/a-cbhama.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- 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); ...@@ -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.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 package body Ada.Containers.Bounded_Hashed_Maps is
......
gcc/ada/a-cfdlli.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
-- <http://www.gnu.org/licenses/>. -- -- <http://www.gnu.org/licenses/>. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System; use type System.Address; with System; use type System.Address;
package body Ada.Containers.Formal_Doubly_Linked_Lists with package body Ada.Containers.Formal_Doubly_Linked_Lists with
SPARK_Mode => Off SPARK_Mode => Off
......
gcc/ada/a-chtgbo.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -27,7 +27,7 @@ ...@@ -27,7 +27,7 @@
-- This unit was originally developed by Matthew J Heaney. -- -- 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 package body Ada.Containers.Hash_Tables.Generic_Bounded_Operations is
......
gcc/ada/a-chtgop.adb
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
with Ada.Containers.Prime_Numbers; with Ada.Containers.Prime_Numbers;
with Ada.Unchecked_Deallocation; 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 package body Ada.Containers.Hash_Tables.Generic_Operations is
......
gcc/ada/a-crbtgo.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
-- Publisher: The MIT Press (June 18, 1990) -- Publisher: The MIT Press (June 18, 1990)
-- ISBN: 0262031418 -- ISBN: 0262031418
with System; use type System.Address; with System; use type System.Address;
package body Ada.Containers.Red_Black_Trees.Generic_Operations is package body Ada.Containers.Red_Black_Trees.Generic_Operations is
......
gcc/ada/a-crdlli.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -27,7 +27,7 @@ ...@@ -27,7 +27,7 @@
-- This unit was originally developed by Matthew J Heaney. -- -- 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 package body Ada.Containers.Restricted_Doubly_Linked_Lists is
......
gcc/ada/a-rbtgbo.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
-- Publisher: The MIT Press (June 18, 1990) -- Publisher: The MIT Press (June 18, 1990)
-- ISBN: 0262031418 -- 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 package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is
......
gcc/ada/sinput.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -157,7 +157,7 @@ package Sinput is ...@@ -157,7 +157,7 @@ package Sinput is
-- separate main units. -- separate main units.
-- The entries in the table are accessed using a Source_File_Index that -- 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 -- 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 -- packages when a source file table entry is created, and cannot be
...@@ -387,7 +387,7 @@ package Sinput is ...@@ -387,7 +387,7 @@ package Sinput is
-- As described in Sem_Ch12, a generic instantiation involves making a -- As described in Sem_Ch12, a generic instantiation involves making a
-- copy of the tree of the generic template. The source locations in -- 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. -- is also possible to find the location of the instantiation.
-- This is achieved as follows. When an instantiation occurs, a new entry -- This is achieved as follows. When an instantiation occurs, a new entry
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment