[multiple changes]

[gcc.git] / gcc / ada / ali.adb

diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb
index 9561a11b143cf2a626f5b8b8709a64e7a1f0a46b..28d02cc79ec05555e2b0266a677c6b50abd4eeaa 100644 (file)
--- a/gcc/ada/ali.adb
+++ b/gcc/ada/ali.adb
@@ -282,6 +282,7 @@ package body ALI is
          loop
             if C = CR or else C = LF then
                Skip_Line;
+               C := Nextc;
 
             elsif C = EOF then
                return;
@@ -788,6 +789,7 @@ package body ALI is
                Fatal_Error;
             else
                Skip_Line;
+               C := Nextc;
             end if;
          else
             Fatal_Error;
@@ -948,6 +950,7 @@ package body ALI is
                Fatal_Error;
             else
                Skip_Line;
+               C := Nextc;
             end if;
          else
             Fatal_Error;