Ada bootstrap fails on CVS mainline

[Andreas Jaeger <aj at suse dot de>]

With current CVS I get on i686-linux-gnu:

$ stage1/xgcc -Bstage1/ -B/opt/gcc/3.3-devel/i686-pc-linux-gnu/bin/ -c -g -O2      -gnatpg -gnata -g -O1 -fno-inline  -I- -I. -Iada -I/cvs/gcc/gcc/ada /cvs/gcc/gcc/ada/a-except.adb -o ada/a-except.o -v
Reading specs from stage1/specs
Configured with: /cvs/gcc/configure --prefix=/opt/gcc/3.3-devel --disable-nls --enable-threads=posix --enable-clocale=gnu --enable-__cxa_atexit --enable-shared --enable-languages=c,c++,f77,java,objc,ada,treelang --enable-checking=misc,tree --with-system-zlib
Thread model: posix
gcc version 3.3 20021025 (experimental)
 stage1/gnat1 -I- -I. -Iada -I/cvs/gcc/gcc/ada -quiet -dumpbase a-except.adb -g -gnatpg -gnata -g -O2 -O1 -fno-inline -gnatO ada/a-except.o /cvs/gcc/gcc/ada/a-except.adb -o /tmp/cceEtPwa.s
+===========================GNAT BUG DETECTED==============================+
| 3.3 20021025 (experimental) (i686-pc-linux-gnu) Storage_Error stack overflow (or erroneous memory access)|
| Error detected at /cvs/gcc/gcc/ada/s-stoele.adb:36:20                    |
| Please submit bug report by email to gcc-bugs@gcc.gnu.org.               |
| Use a subject line meaningful to you and us to track the bug.            |
| 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).                   |
| (use plain ASCII or MIME attachment).                                    |
| See gnatinfo.txt for full info on procedure for submitting bugs.         |
+==========================================================================+

Please include these source files with error report


compilation abandoned

gromit:/builds/gcc/misc/gcc:[1]$ gdb stage1/gnat1
GNU gdb 5.2
Copyright 2002 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i386-suse-linux"...
rBreakpoint 1 at 0x827e3b0: file /cvs/gcc/gcc/diagnostic.c, line 1363.
Breakpoint 2 at 0x8049860
Breakpoint 3 at 0x8049630
(gdb) r -I- -I. -Iada -I/cvs/gcc/gcc/ada -quiet -dumpbase a-except.adb -g -gnatpg -gnata -g -O2 -O1 -fno-inline -gnatO ada/a-except.o /cvs/gcc/gcc/ada/a-except.adb -o /tmp/cceEtPwa.s
Breakpoint 2 at 0x4006025d
Breakpoint 3 at 0x4005ee8f

Program received signal SIGSEGV, Segmentation fault.
0x082704c3 in init_alias_analysis () at /cvs/gcc/gcc/alias.c:2814
2814                      else if (REG_N_SETS (regno) == 1
(gdb) bt
#0  0x082704c3 in init_alias_analysis () at /cvs/gcc/gcc/alias.c:2814
#1  0x082e3af9 in life_analysis (f=0x403e8790, file=0x0, flags=383) at /cvs/gcc/gcc/flow.c:452
#2  0x084a3993 in rest_of_compilation (decl=0x402d9460) at /cvs/gcc/gcc/toplev.c:3061
#3  0x08072211 in end_subprog_body () at /cvs/gcc/gcc/ada/utils.c:1817
#4  0x08092229 in tree_transform (gnat_node=4686) at /cvs/gcc/gcc/ada/trans.c:2718
#5  0x080888bd in gnat_to_code (gnat_node=4686) at /cvs/gcc/gcc/ada/trans.c:232
#6  0x08097bd3 in process_decls (gnat_decls=-99999979, gnat_decls2=0, gnat_end_list=0, pass1p=1, pass2p=1) at /cvs/gcc/gcc/ada/trans.c:4344
#7  0x0809439a in tree_transform (gnat_node=1441) at /cvs/gcc/gcc/ada/trans.c:3169
#8  0x080888bd in gnat_to_code (gnat_node=1441) at /cvs/gcc/gcc/ada/trans.c:232
#9  0x0809455b in tree_transform (gnat_node=1363) at /cvs/gcc/gcc/ada/trans.c:3226
#10 0x080888bd in gnat_to_code (gnat_node=1363) at /cvs/gcc/gcc/ada/trans.c:232
#11 0x080888a1 in gigi (gnat_root=1363, max_gnat_node=20945, number_name=3361, nodes_ptr=0x4019b008, next_node_ptr=0x40353008, 
    prev_node_ptr=0x40384008, elists_ptr=0x8951d88, elmts_ptr=0x89523d0, strings_ptr=0x89b2520, string_chars_ptr=0x8a4a078, 
    list_headers_ptr=0x89d39b0, number_units=19, file_info_ptr=0xbfffee54 "0¦á\021", standard_integer=42, standard_long_long_float=66, 
    standard_exception_type=1033, gigi_operating_mode=0) at /cvs/gcc/gcc/ada/trans.c:215
internal error - unimplemented function unk_lang_create_fundamental_type called.
(gdb) p regno
$1 = 121
(gdb) p reg_n_info
$7 = 0x8992470
(gdb) p *reg_n_info
$8 = {num_elements = 126, elements_used = 0, type = VARRAY_DATA_REG, name = 0x8624d64 "reg_n_info", data = {c = "\200", uc = "\200", s = {-20864}, 
    us = {44672}, i = {144551552}, u = {144551552}, l = {144551552}, ul = {144551552}, hint = {144551552}, uhint = {144551552}, generic = {
      0x89dae80}, cptr = {0x89dae80 "Ñ"}, rtx = {0x89dae80}, rtvec = {0x89dae80}, tree = {0x89dae80}, bitmap = {0x89dae80}, reg = {0x89dae80}, 
    const_equiv = {{rtx = 0x89dae80, age = 144551596}}, bb = {0x89dae80}, te = {0x89dae80}}}

Any ideas?  Anything else I should send?

Andreas
-- 
 Andreas Jaeger
  SuSE Labs aj@suse.de
   private aj@arthur.inka.de
    http://www.suse.de/~aj