From 550f4135fd793241e55fb66d8e267b7c2f7478b6 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 10 Apr 2009 15:20:52 +0200 Subject: [multiple changes] 2009-04-10 Thomas Quinot * xsnamest.adb: Use XUtil to have uniform line endings (UNIX style) in generated files on all platforms. 2009-04-10 Robert Dewar * sem_aux.adb: Minor reformatting 2009-04-10 Ed Schonberg * 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 * sem_disp.adb: Minor reformatting 2009-04-10 Vasiliy Fofanov * 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 * 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. From-SVN: r145898 --- gcc/ada/sem_aux.adb | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'gcc/ada/sem_aux.adb') diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 94db312..884c2bd 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 -- cgit v1.1