diff options
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index d416bd93264..51e7f5fbda2 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -5656,6 +5656,16 @@ package body Sem_Prag is -- Start of processing for Analyze_Pragma begin + -- The following code is a defense against recursion. Not clear that + -- this can happen legitimately, but perhaps some error situations + -- can cause it, and we did see this recursion during testing. + + if Analyzed (N) then + return; + else + Set_Analyzed (N, True); + end if; + -- Deal with unrecognized pragma if not Is_Pragma_Name (Pname) then |