From: Bob Duff <duff@adacore.com>
Date: Thu, 31 Jul 2008 12:37:04 +0000 (+0200)
Subject: sinput.adb (Skip_Line_Terminators): Fix handling of LF/CR -- it was recognized as... 
X-Git-Tag: releases/gcc-4.4.0~3577
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=23bcc1909d382b06453b46edac8b20b06647a1af;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb
index 957dfae2625b..aaea3c8c15d8 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;