diff options
Diffstat (limited to 'gcc/ada/ali.adb')
-rw-r--r-- | gcc/ada/ali.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 9561a11..28d02cc7 100644 --- 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; |