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 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -1081,7 +1081,9 @@ package body Prep is
-- If the token is EOF, the scan ponter will not move, and the token
-- will still be EOF.
Set_Ignore_Errors (To => True);
Scan.all;
Set_Ignore_Errors (To => False);
end loop Input_Line_Loop;
-- 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