[Ada] Restore context on failure in loading of renamed child unit

gcc/ada/

	* lib-load.adb (Load): Replace early return with goto to properly
	restore context on failure.

diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb
index f7534b6016b5a6a13f97cb46f919f940a999eb17..737762c5e7abba7ff3dc0a875c606baa52f9f0d8 100644 (file)
--- a/gcc/ada/lib-load.adb
+++ b/gcc/ada/lib-load.adb
@@ -451,8 +451,8 @@ package body Lib.Load is
               With_Node  => With_Node);
 
          if Unump = No_Unit then
-            Parsing_Main_Extended_Source := Save_PMES;
-            return No_Unit;
+            Unum := No_Unit;
+            goto Done;
          end if;
 
          --  If parent is a renaming, then we use the renamed package as