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

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

diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb
index 957dfae2625b41a5be4e939e810b74e2c03a7af7..aaea3c8c15d8a8bfcf2e8d50ccb9c7c7eabc3057 100644 (file)
--- 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;