diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 13:20:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 13:20:52 +0000 |
| commit | 4a8d5a0a2afc298c4e1acdc197e1889083b3e563 (patch) | |
| tree | 309d701a8f02c317380ed09fb46ab8e38d5c2cba /gcc/ada/sem_aux.adb | |
| parent | d563f41111240776b408a04da0c9c1761550566a (diff) | |
| download | gcc-4a8d5a0a2afc298c4e1acdc197e1889083b3e563.tar.gz | |
2009-04-10 Thomas Quinot <quinot@adacore.com>
* xsnamest.adb: Use XUtil to have uniform line endings (UNIX style) in
generated files on all platforms.
2009-04-10 Robert Dewar <dewar@adacore.com>
* sem_aux.adb: Minor reformatting
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Access_Definition): Handle properly the case of a
protected function with formals that returns an anonymous access type.
2009-04-10 Thomas Quinot <quinot@adacore.com>
* sem_disp.adb: Minor reformatting
2009-04-10 Vasiliy Fofanov <fofanov@adacore.com>
* seh_init.c: Do not use the 32-bit specific implementation of
__gnat_install_SEH_handler on 64-bit Windows target (64-bit specific
version TBD).
2009-04-10 Jose Ruiz <ruiz@adacore.com>
* mlib-tgt-specific-xi.adb (Get_Target_Prefix): Target_Name may contain
a '/' at the end so we better use the complete target name to determine
whether it is a PowerPC 55xx target.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145898 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_aux.adb')
| -rwxr-xr-x | gcc/ada/sem_aux.adb | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 94db312c2e1..884c2bd4109 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -107,9 +107,9 @@ package body Sem_Aux is Full_D : Node_Id; begin - -- If we have no declaration node, then return no constant value. - -- Not clear how this can happen, but it does sometimes and this is - -- the safest approach. + -- If we have no declaration node, then return no constant value. Not + -- clear how this can happen, but it does sometimes and this is the + -- safest approach. if No (D) then return Empty; @@ -119,9 +119,9 @@ package body Sem_Aux is elsif Nkind (D) = N_Object_Renaming_Declaration then return Renamed_Object (Ent); - -- If this is a component declaration whose entity is constant, it - -- is a prival within a protected function. It does not have - -- a constant value. + -- If this is a component declaration whose entity is constant, it is + -- a prival within a protected function. It does not have a constant + -- value. elsif Nkind (D) = N_Component_Declaration then return Empty; @@ -161,8 +161,8 @@ package body Sem_Aux is S : Entity_Id; begin - -- The following test is an error defense against some syntax - -- errors that can leave scopes very messed up. + -- The following test is an error defense against some syntax errors + -- that can leave scopes very messed up. if Ent = Standard_Standard then return Ent; @@ -314,12 +314,12 @@ package body Sem_Aux is begin -- If the base type has no freeze node, it is a type in standard, - -- and always acts as its own first subtype unless it is one of - -- the predefined integer types. If the type is formal, it is also - -- a first subtype, and its base type has no freeze node. On the other - -- hand, a subtype of a generic formal is not its own first_subtype. - -- Its base type, if anonymous, is attached to the formal type decl. - -- from which the first subtype is obtained. + -- and always acts as its own first subtype unless it is one of the + -- predefined integer types. If the type is formal, it is also a first + -- subtype, and its base type has no freeze node. On the other hand, a + -- subtype of a generic formal is not its own first_subtype. Its base + -- type, if anonymous, is attached to the formal type decl. from which + -- the first subtype is obtained. if No (F) then |