diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-11 00:19:12 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-11 00:19:12 +0000 |
| commit | d775516a4f89655206d1b5b9d64cee6fbe979080 (patch) | |
| tree | 76e0023c7abbe9a550d63ad66962aff69dfe0dea /gcc/ada/sem_prag.adb | |
| parent | 0eabc36b7fc9bb053cf7cf0d4be416a440f284cd (diff) | |
| download | gcc-d775516a4f89655206d1b5b9d64cee6fbe979080.tar.gz | |
* sem_prag.adb: (Analyze_Pragma, case External): If entity is a
constant, do not indicate possible modification, so that gigi can
treat it as a bona fide constant.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46168 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 73a4b08aada..3c547c84330 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -5021,7 +5021,11 @@ package body Sem_Prag is Check_At_Least_N_Arguments (2); Check_At_Most_N_Arguments (4); Process_Convention (C, Def_Id); - Note_Possible_Modification (Expression (Arg2)); + + if Ekind (Def_Id) /= E_Constant then + Note_Possible_Modification (Expression (Arg2)); + end if; + Process_Interface_Name (Def_Id, Arg3, Arg4); Set_Exported (Def_Id, Arg2); end Export; |