Commit 10b60633 by Ed Schonberg Committed by Arnaud Charlet

sem_ch10.adb (Optional_Subunit): If file of expected subunit is empty, post message on stub.

2004-10-26  Ed Schonberg  <schonberg@gnat.com>

	* sem_ch10.adb (Optional_Subunit): If file of expected subunit is
	empty, post message on stub.

From-SVN: r89666
parent f529bac5
......@@ -980,7 +980,14 @@ package body Sem_Ch10 is
then
Comp_Unit := Cunit (Unum);
if Nkind (Unit (Comp_Unit)) /= N_Subunit then
-- If the file was empty or seriously mangled, the unit
-- itself may be missing.
if No (Unit (Comp_Unit)) then
Error_Msg_N
("subunit does not contain expected proper body", N);
elsif Nkind (Unit (Comp_Unit)) /= N_Subunit then
Error_Msg_N
("expected SEPARATE subunit, found child unit",
Cunit_Entity (Unum));
......
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