ada/10768: ICEs on compilation of ada support library

ada/10768: ICEs on compilation of ada support library

[maierkom]

>Number:         10768
>Category:       ada
>Synopsis:       ICEs on compilation of ada support library
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue May 13 12:06:00 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator:     maierkom@rcs.ei.tum.de
>Release:        3.4 20030509
>Organization:
>Environment:
host: linux-x86 (redhat 7.3)
>Description:
I was trying to generate a minimum ada runtime library for the avr (e.g. at90s8535) by copying the required *.ads and *.adb files to <prefix>/lib/gcc-lib/avr/3.4/ada-include and compile them.

What I got was a number of ICEs of the form:
+===========================GNAT BUG DETECTED==============================+
| 3.4 20030509 (experimental) (avr-unknown-none) Gigi abort, Code=305      |
| No source file position information available                            |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html.            |
| Include the entire contents of this bug box in the report.               |
| Include the exact gcc or gnatmake command that you entered.              |
| Also include sources listed below in gnatchop format                     |
| (concatenated together with no headers between files).                   |
+==========================================================================+

The files which generated errors were:
s-stalib.adb, s-parame.adb, i-c.adb, s-maccod.ads

I ran the compilation with 
avr-gcc -c -gnatg <filename>

flags -O and -mmcu=at90s8535 didn't make any difference

In file s-maccod.ads the reason for the ICE was the line:
pragma Import (Intrinsic, Asm);

In file i-c.ads the reason for the crash is the definition of type long:
type long  is range -(2 ** (System.Parameters.long_bits - 1))
     .. +(2 ** (System.Parameters.long_bits - 1)) - 1;

>How-To-Repeat:

>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: