diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-09-07 15:02:04 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-07 09:36:29 +0100 |
| commit | 74056e9411e0457c33ff5546a3563edb9ed09c99 (patch) | |
| tree | 0133c4dae22535870b8f4a7aaf89f075595b0e67 /libcpp | |
| parent | c7dc111e9d8e2eb83e45870a98c193f2fd681313 (diff) | |
| download | gcc-74056e9411e0457c33ff5546a3563edb9ed09c99.zip gcc-74056e9411e0457c33ff5546a3563edb9ed09c99.tar.gz gcc-74056e9411e0457c33ff5546a3563edb9ed09c99.tar.bz2 | |
ada: Reject misplaced pragma Obsolescent
Pragma Obsolescent appearing before declaration was putting the
Obsolescent flag on the Standard package, which is certainly wrong. The
problem was that we relied on the Find_Lib_Unit_Name routine without
sanitizing the pragma placement with Check_Valid_Library_Unit_Pragma.
Part of cleaning up the warnings machinery to better handle references
to unset objects.
gcc/ada/
* sem_prag.adb (Analyze_Pragma [Pragma_Obsolescent]): Reject
misplaced pragma.
Diffstat (limited to 'libcpp')
0 files changed, 0 insertions, 0 deletions