From: charlet Date: Fri, 9 Dec 2005 17:21:59 +0000 (+0000) Subject: 2005-12-05 Robert Dewar X-Git-Tag: upstream/4.9.2~57116 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4a25ef0d6f26cf6efefad84353184240f95b4404;p=platform%2Fupstream%2Flinaro-gcc.git 2005-12-05 Robert Dewar * sem_util.ads, sem_util.adb (Full_Qualified_Name): Now provides decoded names. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108306 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 25f33b1..ada7e63 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -2201,8 +2201,7 @@ package body Sem_Util is Ent := Defining_Identifier (Ent); end if; - -- Compute recursively the qualification. Only "Standard" has no - -- scope. + -- Compute qualification recursively (only "Standard" has no scope) if Present (Scope (Scope (Ent))) then Parent_Name := Internal_Full_Qualified_Name (Scope (Ent)); @@ -2227,7 +2226,7 @@ package body Sem_Util is -- Generates the entity name in upper case - Get_Name_String (Chars (Ent)); + Get_Decoded_Name_String (Chars (Ent)); Set_All_Upper_Case; Store_String_Chars (Name_Buffer (1 .. Name_Len)); return End_String; @@ -5235,26 +5234,26 @@ package body Sem_Util is -- Normalize_Actuals -- ----------------------- - -- Chain actuals according to formals of subprogram. If there are - -- no named associations, the chain is simply the list of Parameter - -- Associations, since the order is the same as the declaration order. - -- If there are named associations, then the First_Named_Actual field - -- in the N_Procedure_Call_Statement node or N_Function_Call node - -- points to the Parameter_Association node for the parameter that - -- comes first in declaration order. The remaining named parameters - -- are then chained in declaration order using Next_Named_Actual. + -- Chain actuals according to formals of subprogram. If there are no named + -- associations, the chain is simply the list of Parameter Associations, + -- since the order is the same as the declaration order. If there are named + -- associations, then the First_Named_Actual field in the N_Function_Call + -- or N_Procedure_Call_Statement node points to the Parameter_Association + -- node for the parameter that comes first in declaration order. The + -- remaining named parameters are then chained in declaration order using + -- Next_Named_Actual. - -- This routine also verifies that the number of actuals is compatible - -- with the number and default values of formals, but performs no type - -- checking (type checking is done by the caller). + -- This routine also verifies that the number of actuals is compatible with + -- the number and default values of formals, but performs no type checking + -- (type checking is done by the caller). - -- If the matching succeeds, Success is set to True, and the caller - -- proceeds with type-checking. If the match is unsuccessful, then - -- Success is set to False, and the caller attempts a different - -- interpretation, if there is one. + -- If the matching succeeds, Success is set to True and the caller proceeds + -- with type-checking. If the match is unsuccessful, then Success is set to + -- False, and the caller attempts a different interpretation, if there is + -- one. - -- If the flag Report is on, the call is not overloaded, and a failure - -- to match can be reported here, rather than in the caller. + -- If the flag Report is on, the call is not overloaded, and a failure to + -- match can be reported here, rather than in the caller. procedure Normalize_Actuals (N : Node_Id; @@ -5488,7 +5487,7 @@ package body Sem_Util is Next_Formal (Formal); end loop; - if Formals_To_Match = 0 and then Actuals_To_Match = 0 then + if Formals_To_Match = 0 and then Actuals_To_Match = 0 then Success := True; return; diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 64dd828..b7844a0 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -251,7 +251,8 @@ package Sem_Util is function Full_Qualified_Name (E : Entity_Id) return String_Id; -- Generates the string literal corresponding to the E's full qualified - -- name in upper case. An ASCII.NUL is appended as the last character + -- name in upper case. An ASCII.NUL is appended as the last character. + -- The names in the string are generated by Namet.Get_Decoded_Name_String. function Find_Static_Alternative (N : Node_Id) return Node_Id; -- N is a case statement whose expression is a compile-time value.