From b2df4c40c44adcc1d70db11c39593ace9b4cb588 Mon Sep 17 00:00:00 2001
From: Pierre-Marie de Rodat <derodat@adacore.com>
Date: Tue, 26 Apr 2022 09:51:47 +0000
Subject: [Ada] Revert r12-6599 (Fix up handling of ghost units [PR104027])

gcc/ada/

	PR ada/104027
	* gnat1drv.adb: Remove the goto End_Of_Program.
---
 gcc/ada/gnat1drv.adb | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'gcc')

diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index f85bc13..0a11619 100644
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -1429,11 +1429,6 @@ begin
             Ecode := E_Success;
             Back_End.Gen_Or_Update_Object_File;
 
-            --  Use a goto instead of calling Exit_Program so that finalization
-            --  occurs normally.
-
-            goto End_Of_Program;
-
          --  Otherwise the unit is missing a crucial piece that prevents code
          --  generation.
 
-- 
cgit v1.1