------- 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
