Skip to content

R
riscv-gcc-1
Commit 474e8cbe by Vincent Celier Committed by Arnaud Charlet
Options

prep.adb (Preprocess): Ignore error when scanning the first token of a line. 

2005-06-14  Vincent Celier  <celier@adacore.com>

	* prep.adb (Preprocess): Ignore error when scanning the first token of
	a line.

From-SVN: r101052
parent f073e741
Showing with 3 additions and 1 deletions
gcc/ada/prep.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2002-2003, Free Software Foundation, Inc. -- -- Copyright (C) 2002-2005, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1081,7 +1081,9 @@ package body Prep is ...@@ -1081,7 +1081,9 @@ package body Prep is
-- If the token is EOF, the scan ponter will not move, and the token -- If the token is EOF, the scan ponter will not move, and the token
-- will still be EOF. -- will still be EOF.
Set_Ignore_Errors (To => True);
Scan.all; Scan.all;
Set_Ignore_Errors (To => False);
end loop Input_Line_Loop; end loop Input_Line_Loop;
-- Report an error for any missing some "#end if;" -- Report an error for any missing some "#end if;"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment