diff options
| author | Bob Duff <duff@adacore.com> | 2022-11-15 13:57:49 -0500 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-21 11:10:32 +0100 |
| commit | bc50ac7108485dd3724f36476ebc439f5beb1e83 (patch) | |
| tree | 48bb69e47fb21aebfedbb563f75e7596c516a3f9 /gcc/ada/restrict.adb | |
| parent | 84e80d556415c4c82081647e70e899506a7db9ba (diff) | |
| download | gcc-bc50ac7108485dd3724f36476ebc439f5beb1e83.zip gcc-bc50ac7108485dd3724f36476ebc439f5beb1e83.tar.gz gcc-bc50ac7108485dd3724f36476ebc439f5beb1e83.tar.bz2 | |
ada: Move warnings switches
This patch moves warning switches from Opt into Warnsw, fixes some minor
discrepancies, and cleans up the code.
No change in behavior.
gcc/ada/
* warnsw.ads, warnsw.adb: Move warning flags here from package
Opt. Rename Warning_Record to be Warnings_State. Use an array
instead of a record; this simplifies the code. Add renamings of
all the array components for easy reference outside this package.
Pass the "Family" to Set_Warning_Switch. Use more table-driven
code. Misc cleanup and comment fixes.
* opt.ads: Move warning switches to Warnsw.
* gnat1drv.adb
(Adjust_Global_Switches): Expanded names needed.
* inline.ads: Rename Warning_Record to be Warnings_State.
* sem_ch12.adb: Likewise.
* sem_prag.adb: Use new Set_Warning_Switch.
* contracts.adb, errout.adb, exp_aggr.adb, exp_ch11.adb: Adjust
imports for move to Warnsw.
* exp_ch5.adb, exp_prag.adb, exp_util.adb, frontend.adb: Likewise.
* layout.adb, lib-xref.adb, restrict.adb, scn.adb, sem_aggr.adb:
Likewise.
* sem_attr.adb, sem_case.adb, sem_ch10.adb, sem_ch11.adb:
Likewise.
* sem_ch13.adb, sem_ch3.adb, sem_ch4.adb, sem_ch5.adb: Likewise.
* sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_elab.adb: Likewise.
* sem_eval.adb, sem_res.adb, sem_util.adb, sem_warn.adb: Likewise.
* switch-c.adb: Likewise.
Diffstat (limited to 'gcc/ada/restrict.adb')
| -rw-r--r-- | gcc/ada/restrict.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index cf43ca9..9ef923b 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -41,6 +41,7 @@ with Sinput; use Sinput; with Stand; use Stand; with Targparm; use Targparm; with Uname; use Uname; +with Warnsw; use Warnsw; package body Restrict is |