diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:43:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:43:24 +0000 |
| commit | 5e8a2a99d4a054068ff5ba4e6d9192e7c88546b6 (patch) | |
| tree | cc56ad2870547da06116c5f927b552a16d94614f /gcc/ada/sinput.ads | |
| parent | 63740d1a0b295bd19f3e92ee45b817cc932b5c4a (diff) | |
| download | gcc-5e8a2a99d4a054068ff5ba4e6d9192e7c88546b6.tar.gz | |
* ug_words, gnat_ugn.texi: Added alpha-ivms transitioning section to
porting guide chapter (vms version).
Revised doc title (removed "for native platforms") and subtitle.
Add discussion on warning flag for obsolescent features. First we
note that it applies to obsolete GNAT features, which was previously
omitted. Second we contrast the behavior with that of the new
Ada 2005 AI-368 restriction No_Obsolescent_Features.
Preliminary rewriting of GNAT & libraries chapter in order to take
into account default project locations & new project manager
capabilities.
* cstand.adb (Create_Operators): Clean up format and documentation of
unary and binary operator result tables. No change in code, just
reformatting and addition of comments.
* errout.ads, gnatfind.adb, s-maccod.ads, sem.adb,
sem_ch2.adb: Minor reformatting
* atree.ads, elists.ads, lib.ads, namet.ads, nlists.ads, repinfo.ads,
sinput.ads, stringt.ads, uintp.ads, urealp.ads: Minor clarification to
comments for Tree_Read and Tree_Write.
* exp_attr.ads: Minor reformatting.
* comperr.adb (Compiler_Abort): Add specialized message for GAP
versions.
* exp_pakd.adb (Create_Packed_Array_Type): Add a guard to check
whether the ancestor type is private, as may be the case with nested
instantiations.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92852 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sinput.ads')
| -rw-r--r-- | gcc/ada/sinput.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 90f388dc745..53e8889b424 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -564,11 +564,13 @@ package Sinput is procedure Write_Time_Stamp (S : Source_File_Index); -- Writes time stamp of specified file in YY-MM-DD HH:MM.SS format - procedure Tree_Write; - -- Writes out internal tables to current tree file using Tree_Write - procedure Tree_Read; - -- Initializes internal tables from current tree file using Tree_Read + -- Initializes internal tables from current tree file using the relevant + -- Table.Tree_Read routines. + + procedure Tree_Write; + -- Writes out internal tables to current tree file using the relevant + -- Table.Tree_Write routines. private pragma Inline (File_Name); |