Subversion revision 127471 in GPS (http://libre.adacore.com/gps) introduced an
internal compiler error in codefix-text_manager.adb:
gcc-4.3 -c -g -O2 -gnatafno -gnatVa -I- -gnatA
/home/lbrenta/src/debian/ram/gnat-gps-4.3~2008.08.09/codefix/src/codefix-text_manager.adb
+===========================GNAT BUG DETECTED==============================+
| 4.3.1 (x86_64-pc-linux-gnu) Assert_Failure atree.adb:886 |
| Error detected at codefix-text_manager.adb:4145:34 |
The source line in question is marked below:
procedure Execute
(This : Add_Line_Cmd;
Current_Text : in out Text_Navigator_Abstr'Class;
Success : in out Boolean)
is
Cursor : constant File_Cursor'Class :=
Current_Text.Get_Current_Cursor (This.Position.all);
begin
Success := True;
Current_Text.Get_File
(This.Position.File_Name).Add_Line (Cursor, This.Line.all); -- line
4145
end Execute;
Removing the prefixed notation as follows avoids the ICE:
Get_File
(Current_Text, This.Position.File_Name).Add_Line (Cursor,
This.Line.all);
--
Summary: Assert_Failure at atree.adb:886 caused by legal prefixed
notation
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: ada
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: ludovic at ludovic-brenta dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37110
