diff options
author | pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-10-09 20:28:22 +0000 |
---|---|---|
committer | pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-10-09 20:28:22 +0000 |
commit | b11290d72af88b568b3c7c0c2687fcc6a9fb7e0a (patch) | |
tree | 502df8f997157241d93143dc07c49c176b749f99 /gcc/ada/sem_ch8.ads | |
parent | fe9bb6066aaae3533e08ef4d520b57f808527243 (diff) | |
download | gcc-b11290d72af88b568b3c7c0c2687fcc6a9fb7e0a.tar.gz |
2017-10-09 Justin Squirek <squirek@adacore.com>
* sem_ch3.adb: Rename Uses_Unseen_Priv into
Contains_Lib_Incomplete_Type.
2017-10-09 Hristian Kirtchev <kirtchev@adacore.com>
* sem_aggr.adb, sem_spark.adb, adabkend.adb, exp_ch5.adb, frontend.adb,
sem_ch12.adb, fmap.adb, exp_ch6.adb, exp_spark.adb, lib-load.adb,
exp_ch9.adb, osint.adb, exp_disp.adb, sem_ch8.adb, sem_ch8.ads,
prepcomp.adb, gnat1drv.adb, atree.adb, sinput-l.adb, targparm.adb,
sem_ch10.adb, par-ch8.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@253566 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch8.ads')
-rw-r--r-- | gcc/ada/sem_ch8.ads | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads index e87f5aafd51..bee5f49e874 100644 --- a/gcc/ada/sem_ch8.ads +++ b/gcc/ada/sem_ch8.ads @@ -53,17 +53,15 @@ package Sem_Ch8 is procedure Analyze_Package_Renaming (N : Node_Id); procedure Analyze_Subprogram_Renaming (N : Node_Id); - procedure Analyze_Use_Package (N : Node_Id; - Chain : Boolean := True); - -- Analyze a use package clause and control (through the Chain - -- parameter) whether to add N to the use clause chain for the name - -- denoted within use clause N in case we are reanalyzing a use clause - -- because of stack manipulation. - - procedure Analyze_Use_Type (N : Node_Id; - Chain : Boolean := True); - -- Similar to Analyze_Use_Package except the Chain parameter applies - -- to the type within N's subtype mark Current_Use_Clause. + procedure Analyze_Use_Package (N : Node_Id; Chain : Boolean := True); + -- Analyze a use package clause and control (through the Chain parameter) + -- whether to add N to the use clause chain for the name denoted within + -- use clause N in case we are reanalyzing a use clause because of stack + -- manipulation. + + procedure Analyze_Use_Type (N : Node_Id; Chain : Boolean := True); + -- Similar to Analyze_Use_Package except the Chain parameter applies to the + -- type within N's subtype mark Current_Use_Clause. procedure End_Scope; -- Called at end of scope. On exit from blocks and bodies (subprogram, |