[Bug ada/37110] New: Assert_Failure at atree.adb:886 caused by legal prefixed notation

[Bug ada/37110] New: Assert_Failure at atree.adb:886 caused by legal prefixed notation

[ludovic at ludovic-brenta dot org]

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

[Bug ada/37110] Assert_Failure at atree.adb:886 caused by legal prefixed notation

[charlet at gcc dot gnu dot org]

------- Comment #1 from charlet at gcc dot gnu dot org  2008-08-13 10:34 -------
Please submit a self contained bug report with all needed sources. Even better
would be a reduced test case, thanks.

Note that GPS sources have changed and no longer have the code you quote.


-- 

charlet at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37110

[Bug ada/37110] Assert_Failure at atree.adb:886 caused by legal prefixed notation

[sam at gcc dot gnu dot org]

------- Comment #2 from sam at gcc dot gnu dot org  2008-08-18 09:49 -------
This may be a duplicate of PR 34598.


-- 

sam at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |sam at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37110

[Bug ada/37110] Assert_Failure at atree.adb:886 caused by legal prefixed notation

[ebotcazou at gcc dot gnu dot org]

------- Comment #3 from ebotcazou at gcc dot gnu dot org  2009-03-08 09:09 -------
No feedback in 3 months.


-- 

ebotcazou at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |ebotcazou at gcc dot gnu dot
                   |                            |org
             Status|WAITING                     |RESOLVED
         Resolution|                            |WONTFIX


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37110