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/lib.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/lib.ads')
| -rw-r--r-- | gcc/ada/lib.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/lib.ads b/gcc/ada/lib.ads index 9ec0278680f..74c8a07cdcd 100644 --- a/gcc/ada/lib.ads +++ b/gcc/ada/lib.ads @@ -561,11 +561,13 @@ package Lib is procedure Lock; -- Lock internal tables before calling back end - 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. function Is_Loaded (Uname : Unit_Name_Type) return Boolean; -- Determines if unit with given name is already loaded, i.e. there is |