diff options
Diffstat (limited to 'gcc/ada/par-ch5.adb')
| -rw-r--r-- | gcc/ada/par-ch5.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 57c54449ac3..e0a7e0af6f8 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -1104,7 +1104,7 @@ package body Ch5 is procedure Check_If_Column is begin - if Style.RM_Column_Check and then Token_Is_At_Start_Of_Line + if RM_Column_Check and then Token_Is_At_Start_Of_Line and then Start_Column /= Scope.Table (Scope.Last).Ecol then Error_Msg_Col := Scope.Table (Scope.Last).Ecol; @@ -2076,7 +2076,7 @@ package body Ch5 is Error_Msg_Col := Scope.Table (Scope.Last).Ecol; - if Style.RM_Column_Check + if RM_Column_Check and then Token_Is_At_Start_Of_Line and then Start_Column /= Error_Msg_Col then |