diff options
-rw-r--r-- | gcc/ada/output.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 33d027d..497643d 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -422,10 +422,10 @@ package body Output is procedure Write_Char (C : Character) is begin - pragma Assert (Next_Col in Buffer'Range); - if Next_Col = Buffer'Length then - Write_Eol; + if Next_Col > Buffer'Length then + Flush_Buffer; end if; + pragma Assert (Next_Col in Buffer'Range); if C = ASCII.LF then Write_Eol; |