diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-25 15:17:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-25 15:17:25 +0000 |
| commit | f572eafb46e7e4db7a058b9199a41300cac12301 (patch) | |
| tree | fb430d94bc43da0b5a140cd3a1e77684ce6e44dc /gcc/ada/stand.ads | |
| parent | e12ab46d570d8d37cf186f06027a1d9a1cb607e9 (diff) | |
| download | gcc-f572eafb46e7e4db7a058b9199a41300cac12301.tar.gz | |
2012-04-25 Gary Dismukes <dismukes@adacore.com>
* exp_ch9.adb: Add comments on the usage of the
lock-free data structures.
2012-04-25 Vincent Pucci <pucci@adacore.com>
* exp_intr.adb (Expand_Shift): Convert the left
operand and the operator when the type of the call differs from
the type of the operator.
2012-04-25 Geert Bosch <bosch@adacore.com>
* stand.ads: Minor comment fix.
2012-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch4.adb (Analyze_Slice): Handle the case where the prefix
is a string literal. Retrieve the first index from the base type
when slicing a string literal.
* sem_ch12.adb (Check_Private_View): Move the initialization
of the type inside the loop to reflect the changing index.
* sem_eval.adb (Eval_Relational_Op): Retrieve the first index
from the base type when dealing with a string literal.
* sem_res.adb (Resolve_Slice): Retrieve the first index from
the base type when slicing a string literal.
* sem_util.adb (Is_Internally_Generated_Renaming): New routine.
(Is_Object_Reference): String literals may act
as object references only when they are renamed internally.
(Proper_First_Index): New routine.
* sem_util.ads (Proper_First_Index): New routine.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@186829 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/stand.ads')
| -rw-r--r-- | gcc/ada/stand.ads | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads index d369b40ac73..16f388d5fe6 100644 --- a/gcc/ada/stand.ads +++ b/gcc/ada/stand.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -460,12 +460,12 @@ package Stand is ----------------- procedure Tree_Read; - -- Initializes entity values in this package from the current tree - -- file using Osint.Tree_Read. Note that Tree_Read includes all the - -- initialization that is carried out by Create_Standard. + -- Initializes entity values in this package from the current tree file + -- using Tree_IO. Note that Tree_Read includes all the initialization that + -- is carried out by Create_Standard. procedure Tree_Write; -- Writes out the entity values in this package to the current tree file - -- using Osint.Tree_Write. + -- using Tree_IO. end Stand; |