diff options
Diffstat (limited to 'gcc/ada/cstand.adb')
-rw-r--r-- | gcc/ada/cstand.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 409944c..41de2a5 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -149,8 +149,7 @@ package body CStand is function New_Operator (Op : Name_Id; Typ : Entity_Id) return Entity_Id; -- Build entity for standard operator with given name and type - function New_Standard_Entity - (New_Node_Kind : Node_Kind := N_Defining_Identifier) return Entity_Id; + function New_Standard_Entity return Entity_Id; -- Builds a new entity for Standard function New_Standard_Entity (Nam : String) return Entity_Id; @@ -1793,10 +1792,9 @@ package body CStand is -- New_Standard_Entity -- ------------------------- - function New_Standard_Entity - (New_Node_Kind : Node_Kind := N_Defining_Identifier) return Entity_Id + function New_Standard_Entity return Entity_Id is - E : constant Entity_Id := New_Entity (New_Node_Kind, Stloc); + E : constant Entity_Id := New_Entity (N_Defining_Identifier, Stloc); begin -- All standard entities are Pure and Public |