OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sinput.adb (Skip_Line_Terminators): Fix handling of LF/CR -- it was recognized as two end-of-lines...

Browse Source 
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
This commit is contained in:
Bob Duff 2008-07-31 14:37:04 +02:00 committed by Arnaud Charlet
parent 2f62e83f53
commit 23bcc1909d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/sinput.adb
View File

@ -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;