OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

par.adb: Enhance error message handling for configuration file pragmas.

Browse Source 
* par.adb: Enhance error message handling for configuration file
	pragmas.

From-SVN: r92846
This commit is contained in:
Arnaud Charlet 2005-01-03 16:40:30 +01:00
parent 0fe6afd3cf
commit 01af9aff56
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gcc/ada/par.adb
View File

@ -1208,7 +1208,6 @@ begin
if Configuration_Pragmas then if Configuration_Pragmas then
declare declare
Ecount : constant Int := Serious_Errors_Detected;
Pragmas : constant List_Id := Empty_List; Pragmas : constant List_Id := Empty_List;
P_Node : Node_Id; P_Node : Node_Id;
@ -1224,20 +1223,29 @@ begin
else else
P_Node := P_Pragma; P_Node := P_Pragma;
if Serious_Errors_Detected > Ecount then if Nkind (P_Node) = N_Pragma then
return Error_List;
end if;
if Chars (P_Node) > Last_Configuration_Pragma_Name -- Give error if bad pragma
and then Chars (P_Node) /= Name_Source_Reference
then
Error_Msg_SC
("only configuration pragmas allowed " &
"in configuration file");
return Error_List;
end if;
Append (P_Node, Pragmas); if Chars (P_Node) > Last_Configuration_Pragma_Name
and then Chars (P_Node) /= Name_Source_Reference
then
if Is_Pragma_Name (Chars (P_Node)) then
Error_Msg_N
("only configuration pragmas allowed " &
"in configuration file", P_Node);
else
Error_Msg_N
("unrecognized pragma in configuration file",
P_Node);
end if;
-- Pragma is OK config pragma, so collect it
else
Append (P_Node, Pragmas);
end if;
end if;
end if; end if;
end loop; end loop;
end; end;