diff options
author | Viljar Indus <indus@adacore.com> | 2024-04-12 12:21:36 +0300 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-13 15:30:35 +0200 |
commit | 98900f7da7969cdc241cf1f6a85127e75f852607 (patch) | |
tree | 6282e764db4c832ed49edf45ab4501cacbf913e3 /gcc/ada/par-util.adb | |
parent | ea3172a4247c11dbb90ed6484bbba97a2bbcc1f9 (diff) | |
download | gcc-98900f7da7969cdc241cf1f6a85127e75f852607.zip gcc-98900f7da7969cdc241cf1f6a85127e75f852607.tar.gz gcc-98900f7da7969cdc241cf1f6a85127e75f852607.tar.bz2 |
ada: Remove -gnatdJ switch
Using -gnatdJ with various other switches was error prone.
Remove this switch since the primary users of this mode
GNATCheck and Codepeer no longer need it.
gcc/ada/
* debug.adb: Remove mentions of -gnatdJ.
* errout.adb: Remove printing subprogram names to JSON.
* erroutc.adb: Remove printing subprogram names in messages.
* erroutc.ads: Remove Node and Subprogram_Name_Ptr used for -gnatdJ.
* errutil.adb: Remove Node used for -gnatdJ
* gnat1drv.adb: Remove references of -gnatdJ and
Include_Subprgram_In_Messages.
* opt.ads: Remove Include_Subprgram_In_Messages
* par-util.adb: Remove behavior related to
Include_Subprgram_In_Messages.
* sem_util.adb: Remove Subprogram_Name used for -gnatdJ
Diffstat (limited to 'gcc/ada/par-util.adb')
-rw-r--r-- | gcc/ada/par-util.adb | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index 8ed5947..f254026 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -689,12 +689,6 @@ package body Util is pragma Assert (Scope.Last > 0); Scope.Decrement_Last; - if Include_Subprogram_In_Messages - and then Scopes (Scope.Last).Labl /= Error - then - Current_Node := Scopes (Scope.Last).Labl; - end if; - if Debug_Flag_P then Error_Msg_Uint_1 := UI_From_Int (Scope.Last); Error_Msg_SC ("decrement scope stack ptr, new value = ^!"); |