diff options
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index ad18e82..68e0eb9 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -155,11 +155,11 @@ package body Sem_Ch4 is -- the operand of the operator node. procedure Analyze_One_Call - (N : Node_Id; - Nam : Entity_Id; - Report : Boolean; - Success : out Boolean; - Skip_First : Boolean := False); + (N : Node_Id; + Nam : Entity_Id; + Report : Boolean; + Success : out Boolean; + Skip_First : Boolean := False); -- Check one interpretation of an overloaded subprogram name for -- compatibility with the types of the actuals in a call. If there is a -- single interpretation which does not match, post error if Report is @@ -3635,11 +3635,11 @@ package body Sem_Ch4 is ---------------------- procedure Analyze_One_Call - (N : Node_Id; - Nam : Entity_Id; - Report : Boolean; - Success : out Boolean; - Skip_First : Boolean := False) + (N : Node_Id; + Nam : Entity_Id; + Report : Boolean; + Success : out Boolean; + Skip_First : Boolean := False) is Actuals : constant List_Id := Parameter_Associations (N); Prev_T : constant Entity_Id := Etype (N); |