diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-04 16:55:48 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-04 16:55:48 +0000 |
| commit | c2aed977c1ce5f1bace70a9775138a4816392feb (patch) | |
| tree | dcfc83ee806b8d2ab5b64ddf5adb4fb3ee1d6b89 /gcc/ada/sem_prag.adb | |
| parent | d8dd2062cdbbcb05d0c1e517cd97c513aea32b4f (diff) | |
| download | gcc-c2aed977c1ce5f1bace70a9775138a4816392feb.tar.gz | |
* einfo.adb (Has_Pragma_Pure_Function): New flag.
Fix problem that stopped ceinfo from working
* einfo.ads (Has_Pragma_Pure_Function): New flag.
* sem_prag.adb (Pure_Function): Set new flag Has_Pragma_Pure_Function.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47614 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -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 3c547c84330..8e102cd51a5 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -7267,6 +7267,7 @@ package body Sem_Prag is end if; Set_Is_Pure (Def_Id); + Set_Has_Pragma_Pure_Function (Def_Id); E := Homonym (E); end loop; end Pure_Function; |