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
This commit is contained in:
parent
6d0d18dcb1
commit
6616e39069
@ -1,3 +1,8 @@
|
|||||||
|
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,
|
||||||
|
@ -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- --
|
||||||
|
@ -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- --
|
||||||
|
@ -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- --
|
||||||
|
@ -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- --
|
||||||
|
@ -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- --
|
||||||
|
@ -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- --
|
||||||
|
@ -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
|
|||||||
-- 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
|
|||||||
|
|
||||||
-- 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
|
||||||
|
Loading…
Reference in New Issue
Block a user