From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 32377 invoked by alias); 13 Aug 2014 12:35:27 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 32073 invoked by uid 48); 13 Aug 2014 12:35:21 -0000 From: "georggcc at googlemail dot com" To: gcc-bugs@gcc.gnu.org Subject: [Bug ada/32164] [4.8/4.9/4.10 Regression] ICE when renaming predefined "=" and "/=" Date: Wed, 13 Aug 2014 12:35:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: ada X-Bugzilla-Version: 4.1.1 X-Bugzilla-Keywords: ice-on-invalid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: georggcc at googlemail dot com X-Bugzilla-Status: NEW X-Bugzilla-Priority: P5 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: 4.8.4 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: cc Message-ID: In-Reply-To: References: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2014-08/txt/msg00855.txt.bz2 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=32164 Georg changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |georggcc at googlemail dot com --- Comment #16 from Georg --- works for me with some more recent compilers. Example: $ gnatchop -w pak1.ada && gnatmake -gnatvl pak1_1.ads pak1_2.ads splitting pak1.ada into: pak1_1.ads pak1_2.ads gcc -c -gnatvl pak1_1.ads GNAT 4.8.0 20130208 (experimental) [trunk revision 195897] Copyright 1992-2013, Free Software Foundation, Inc. Compiling: pak1_1.ads (source file time stamp: 2014-08-13 12:33:11) 1. package Pak1_1 is 2. type T1 is tagged null record; 3. function Eq(X, Y : T1) return Boolean renames "="; 4. function Neq(X, Y : T1) return Boolean renames "/="; -- line 4 5. end Pak1_1; 5 lines: No errors gcc -c -gnatvl pak1_2.ads GNAT 4.8.0 20130208 (experimental) [trunk revision 195897] Copyright 1992-2013, Free Software Foundation, Inc. Compiling: pak1_2.ads (source file time stamp: 2014-08-13 12:33:11) 1. 2. package Pak1_2 is 3. type T1 is tagged null record; 4. function Eq (X, Y : T1) return Boolean renames "="; 5. 6. type T2 is new T1 with null record; 7. function Eq (X, Y : T2) return Boolean renames "="; -- line 6 8. end Pak1_2; 8 lines: No errors Same for GNAT GPL 2014 (20140331) ; both on Mac OS X 10.9