This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug ada/33788] GNAT bug box in expand_expr_addr_expr_1, at expr.c:6862
- From: "oliver dot kellogg at eads dot com" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 11 Dec 2007 09:36:52 -0000
- Subject: [Bug ada/33788] GNAT bug box in expand_expr_addr_expr_1, at expr.c:6862
- References: <bug-33788-13657@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #3 from oliver dot kellogg at eads dot com 2007-12-11 09:36 -------
Still happens with 20071211 r130768.
BTW the workaround is to introduce a temporary variable (LICG) as follows:
package body mac6dw is
procedure Generate_Callforward is
MADR : ISF_Dbase.Access_Mission_Assignment_Dbase_Rec_T
:= ISF_Dbase.Mission_Assignment_ISF (ISF_Dbase.Mission_Assignment);
LICG : L16_Data_2_Types.Laser_Illuminator_Code_Group_T
:= MADR.ISF.Laser_Illuminator_Code (0);
begin
Mcc.Gui.Widget.Text_Entry.Set_Text
(Obj => Laser_Illuminator_Code_0_te ,
Text => L16_Data_2_Types.Laser_Illuminator_Code_Group_T'Image (LICG));
end Generate_Callforward;
end mac6dw;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33788