sinput.adb (Skip_Line_Terminators): Fix handling of LF/CR -- it was recognized…

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

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;