diff options
| author | Bob Duff <duff@adacore.com> | 2008-07-31 14:37:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 14:37:04 +0200 |
| commit | 23bcc1909d382b06453b46edac8b20b06647a1af (patch) | |
| tree | b995ca03907ff6dd0d5db89e908b63f903243914 /gcc/ada/sinput.adb | |
| parent | 2f62e83f53c8775c6d9f0532cacbfe6e3f905ca5 (diff) | |
| download | gcc-23bcc1909d382b06453b46edac8b20b06647a1af.zip gcc-23bcc1909d382b06453b46edac8b20b06647a1af.tar.gz gcc-23bcc1909d382b06453b46edac8b20b06647a1af.tar.bz2 | |
sinput.adb (Skip_Line_Terminators): Fix handling of LF/CR -- it was recognized as two end-of-lines...
2008-07-31 Bob Duff <duff@adacore.com>
* sinput.adb (Skip_Line_Terminators): Fix handling of LF/CR -- it was
recognized as two end-of-lines, but it should be just one.
From-SVN: r138390
Diffstat (limited to 'gcc/ada/sinput.adb')
| -rw-r--r-- | gcc/ada/sinput.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb index 957dfae..aaea3c8 100644 --- a/gcc/ada/sinput.adb +++ b/gcc/ada/sinput.adb @@ -657,7 +657,7 @@ package body Sinput is end if; elsif Chr = LF then - if Source (P) = CR then + if Source (P + 1) = CR then P := P + 2; else P := P + 1; |