diff options
author | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-04-26 09:51:47 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-04-27 08:00:33 +0000 |
commit | b2df4c40c44adcc1d70db11c39593ace9b4cb588 (patch) | |
tree | 716e2247b0df6ba7ed94717eb39982247a16e7a3 | |
parent | bc79f0d9048375e402497d5f2ef457c9500310e4 (diff) | |
download | gcc-b2df4c40c44adcc1d70db11c39593ace9b4cb588.zip gcc-b2df4c40c44adcc1d70db11c39593ace9b4cb588.tar.gz gcc-b2df4c40c44adcc1d70db11c39593ace9b4cb588.tar.bz2 |
[Ada] Revert r12-6599 (Fix up handling of ghost units [PR104027])
gcc/ada/
PR ada/104027
* gnat1drv.adb: Remove the goto End_Of_Program.
-rw-r--r-- | gcc/ada/gnat1drv.adb | 5 |
1 files changed, 0 insertions, 5 deletions
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. |