diff options
Diffstat (limited to 'gcc/ada/scng.adb')
| -rw-r--r-- | gcc/ada/scng.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 5621ff602ba..13ef75c88ee 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -342,8 +342,14 @@ package body Scng is Len : constant Int := Int (Scan_Ptr) - Int (Current_Line_Start); begin - if Style_Check and Style_Check_Max_Line_Length then + if Style_Check then Style.Check_Line_Terminator (Len); + end if; + + -- Deal with checking maximum line length + + if Style_Check and Style_Check_Max_Line_Length then + Style.Check_Line_Max_Length (Len); -- If style checking is inactive, check maximum line length against -- standard value. Note that we take this from Opt.Max_Line_Length |