From 23bcc1909d382b06453b46edac8b20b06647a1af Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Thu, 31 Jul 2008 14:37:04 +0200 Subject: [PATCH] sinput.adb (Skip_Line_Terminators): Fix handling of LF/CR -- it was recognized as two end-of-lines... 2008-07-31 Bob Duff * 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 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.47.2