diff options
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 78a61807a33..9aac1230483 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -2843,7 +2843,7 @@ package body Exp_Ch7 is -- Determine whether N denotes the protected version of a subprogram -- which belongs to a protected type. - Loc : constant Source_Ptr := No_Location; + Loc : constant Source_Ptr := Sloc (N); HSS : Node_Id; begin |