Re: [patch] ipa-type-escape improvements

[Eric Botcazou <ebotcazou at adacore dot com>]

> So you have a component_ref or an indirect_ref of a real_cst?

Indirectly of course, here is the tree:

 <component_ref 0x5570f488
    type <real_type 0x55754340 long_long_float sizes-gimplified visited XF
        size <integer_cst 0x55709678 constant invariant visited 96>
        unit size <integer_cst 0x55709690 constant invariant visited 12>
        align 32 symtab 0 alias set 7 canonical type 0x55754340 precision 80 
min <real_cst 0x55709c90 
-1.1897314953572317650212638530309702051690633223e+4932> max <real_cst 
0x55709f60 1.1897314953572317650212638530309702051690633223e+4932>>

    arg 0 <view_convert_expr 0x55766444
        type <record_type 0x557543a8 long_long_float___PAD sizes-gimplified 
visited type_5 BLK
            size <integer_cst 0x557094f8 constant invariant visited 128>
            unit size <integer_cst 0x55709510 constant invariant visited 16>
            user align 64 symtab 0 alias set -1 canonical type 0x557543a8 
fields <field_decl 0x55756000 F> Ada size <integer_cst 0x55709678 96>
            chain <type_decl 0x55754478 D.552>>
        invariant
        arg 0 <real_cst 0x55765768 type <real_type 0x5575ef70 
ada__numerics__aux__TdoubleB>
            constant invariant 1.0e+0>>
    arg 1 <field_decl 0x55756000 F type <real_type 0x55754340 long_long_float>
        decl_3 decl_5 XF file a-numaux.adb line 0 size <integer_cst 0x55709678 
96> unit size <integer_cst 0x55709690 12>
        align 32 offset_align 128
        offset <integer_cst 0x55709600 constant invariant visited 0>
        bit offset <integer_cst 0x55709618 constant invariant visited 0> 
context <record_type 0x557543a8 long_long_float___PAD>>>

-- 
Eric Botcazou