From 10b6063358b80caf65dbab1ac0dd3844a3b9a8ac Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Wed, 27 Oct 2004 15:40:29 +0200 Subject: sem_ch10.adb (Optional_Subunit): If file of expected subunit is empty, post message on stub. 2004-10-26 Ed Schonberg * sem_ch10.adb (Optional_Subunit): If file of expected subunit is empty, post message on stub. From-SVN: r89666 --- gcc/ada/sem_ch10.adb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index cbdfbc2..b790a93 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -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)); -- cgit v1.1