[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

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

[nicolas.boulenguez at free dot fr]

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

--- Comment #8 from nicolas.boulenguez at free dot fr ---
Both triggers produce the expected behaviour with 4.8.2:
gcc-4.8 -c trigger1.adb
gcc-4.8 -c p.ads
cannot generate code for file p.ads (package spec)
gnatmake: "p.ads" compilation error

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

[ebotcazou at gcc dot gnu.org]

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

Eric Botcazou <ebotcazou at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-03-23
     Ever confirmed|0                           |1

--- Comment #7 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
Still happens on mainline.

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

[ludovic@ludovic-brenta.org]

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

Ludovic Brenta <ludovic@ludovic-brenta.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |UNCONFIRMED
         Resolution|WONTFIX                     |

--- Comment #6 from Ludovic Brenta <ludovic@ludovic-brenta.org> 2011-09-05 19:55:48 UTC ---
Reopening this bug now that Nicolas found a reproducer.

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

[nicolas.boulenguez at free dot fr]

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

--- Comment #5 from nicolas.boulenguez at free dot fr 2011-09-03 03:23:36 UTC ---
-- There were two distinct bugs.

package P is
   type T1 is tagged null record;
   type T2 is tagged null record;
   function Func (Func_Formal : in T1'Class;
                  I           : in Integer)
               return access T2;
   procedure Proc (Proc_Formal : out T2);
end P;

--  This legal line causes a bug box.
--  4.4.6 (x86_64-pc-linux-gnu) Assert_Failure sinfo.adb:1149
--  4.6.1 (x86_64-pc-linux-gnu) Assert_Failure sinfo.adb:1240
with P; use P;
procedure Trigger1 is
   Actual : constant T1 := (null record);
begin
   Proc (Proc_Formal => Func (Func_Formal => Actual, I => 0).all);
end Trigger1;

--  Obsessive Obfuscated Programming on Trigger1 caused another kind of
--  bug box with 4.3 and 4.4.
--  4.4.6 (x86_64-pc-linux-gnu) Assert_Failure atree.adb:884
--  4.6.1 (x86_64-pc-linux-gnu) detects the  missing body.
with P; use P;
procedure Trigger2 is
   Actual : constant T1 := (null record);
begin
   Actual.Func (0).Proc;
end Trigger2;

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

[nicolas.boulenguez at free dot fr]

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

nicolas.boulenguez at free dot fr changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |nicolas.boulenguez at free
                   |                            |dot fr

--- Comment #4 from nicolas.boulenguez at free dot fr 2011-09-02 21:15:38 UTC ---
Found with same sources.
4.4.6 (x86_64-pc-linux-gnu) Assert_Failure atree.adb:884
I will try to reduce the needed sources and submit them.