diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-01-26 17:47:34 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-13 10:03:31 +0200 |
| commit | 32fe73ee9d96bb861014526326c94ef4e23bdace (patch) | |
| tree | c67be2325e8106d0dbfc10f62931e50130e66c47 | |
| parent | 4768f3dd68e3f19cb54cadf4444da6f830deb960 (diff) | |
| download | gcc-32fe73ee9d96bb861014526326c94ef4e23bdace.zip gcc-32fe73ee9d96bb861014526326c94ef4e23bdace.tar.gz gcc-32fe73ee9d96bb861014526326c94ef4e23bdace.tar.bz2 | |
ada: Recognize pragma Lock_Free as specific to GNAT
Pramga Lock_Free must be recognized as implementation-defined.
gcc/ada/
* sem_prag.adb (Analyze_Pragma): When processing pragma
Lock_Free, check if restriction No_Implementation_Pragmas is
enabled.
| -rw-r--r-- | gcc/ada/sem_prag.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index ff02ae9..9e0e41c 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -19950,6 +19950,7 @@ package body Sem_Prag is Val : Boolean; begin + GNAT_Pragma; Check_No_Identifiers; Check_At_Most_N_Arguments (1); |