This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Fix gigi 999 abort (patch)
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Fix gigi 999 abort (patch)
- From: Geert Bosch <bosch at gnat dot com>
- Date: Wed, 10 Oct 2001 20:19:09 -0400 (EDT)
This fixes a Gigi 999 abort.
-Geert
2001-10-10 Ed Schonberg <schonber@gnat.com>
* 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.
*** sem_prag.adb 2001/09/30 05:20:36 1.559
--- sem_prag.adb 2001/10/03 02:43:12 1.560
***************
*** 5021,5027 ****
Check_At_Least_N_Arguments (2);
Check_At_Most_N_Arguments (4);
Process_Convention (C, Def_Id);
! Note_Possible_Modification (Expression (Arg2));
Process_Interface_Name (Def_Id, Arg3, Arg4);
Set_Exported (Def_Id, Arg2);
end Export;
--- 5021,5031 ----
Check_At_Least_N_Arguments (2);
Check_At_Most_N_Arguments (4);
Process_Convention (C, Def_Id);
!
! 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;