[Ada] Prevent infinite recursion when there is no expected unit

gcc/ada/

	* par-load.adb (Load): Don't remove unit, but flag it as
	erroneous and return.

diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb
index 0773f36946fd7f22702f759ad8b40796ef0edf8f..6079fa477f6bd726ae4bc3258d6c470a2ca83fcc 100644 (file)
--- a/gcc/ada/par-load.adb
+++ b/gcc/ada/par-load.adb
@@ -234,9 +234,10 @@ begin
          Error_Msg ("\\found unit $!", Loc);
       end if;
 
-      --  In both cases, remove the unit so that it is out of the way later
+      --  In both cases, flag the fatal error and give up
 
-      Remove_Unit (Cur_Unum);
+      Set_Fatal_Error (Cur_Unum, Error_Detected);
+      return;
    end if;
 
    --  If current unit is a body, load its corresponding spec