[Bug ada/36207] [4.4 regression] Ada bootstrap fails in uintp.adb:1595

[aaronavay62 at aaronwl dot com]

------- Comment #10 from aaronavay62 at aaronwl dot com  2008-07-14 14:38 -------
(In reply to comment #9)

>   gcc_assert (!(TREE_CODE (exp) == VAR_DECL
>                 && TREE_STATIC (exp)
>                 && DECL_EXTERNAL (exp)));

Eric, OK, now I get:

/mingw/src/gccada/./prev-gcc/xgcc -B/mingw/src/gccada/./prev-gcc/
-B/mingw/i386-pc-mingw32/bin/ -c -g -O2 -D__USE_MINGW_ACCESS      -gnatpg
-gnata -gnatwns -g -O1 -fno-inline \
         -nostdinc -I- -I. -Iada -I../../svn/gcc/ada
../../svn/gcc/ada/a-except.adb -o ada/a-except.o
+===========================GNAT BUG DETECTED==============================+    
| 4.4.0 20080713 (experimental) (i386-pc-mingw32) GCC error:               |    
| in i386_pe_binds_local_p, at config/i386/winnt.c:339                     |    
| Error detected around ../../svn/gcc/ada\a-exexda.adb:647                 | 
...
raised TYPES.UNRECOVERABLE_ERROR : comperr.adb:424 

debug_tree(exp)
 <var_decl 03D11D68 system__soft_links__get_current_excep
    type <pointer_type 03D142D8 system__soft_links__get_eoa_call
        type <function_type 03D141A0 system__soft_links__T10s type
<pointer_type
 038E5A90 ada__exceptions__exception_occurrence_access>
            sizes-gimplified asm_written visited QI
            size <integer_cst 000C8520 constant 8>
            unit size <integer_cst 000C8540 constant 1>
            align 8 symtab 64062056 alias set -1 canonical type 03D141A0
            arg-types <tree_list 03D16DC0 value <void_type 000DA7B8 void>>
            pointer_to_this <pointer_type 03D142D8
system__soft_links__get_eoa_call>>                                              
        sizes-gimplified visited unsigned SI
        size <integer_cst 000C86E0 constant 32>
        unit size <integer_cst 000C8480 constant 4>
        align 32 symtab 64062280 alias set -1 canonical type 03D142D8>
    side-effects addressable volatile public static unsigned external SI file
../../svn/gcc/ada\s-soflin.ads line 255 col 4 size <integer_cst 000C86E0 32>
unit size <integer_cst 000C8480 4>
    align 32
    (mem/v/f/c/i:SI (symbol_ref:SI ("system__soft_links__get_current_excep")
<var_decl 03D11D68 system__soft_links__get_current_excep>) [0
system__soft_links__get_current_excep+0 S4 A32])>


-- 


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