debuginformation generated by GNAT

[Roul Oldenburger <oldenburger.roul@rheinmetall-de.com>]

Hello everybody,

I was looking for explanation for certain debug symbols gnat generated 
from our ada sources. Joel pointed me to exp_debug.ads where most of my 
questions were answered, but now I am in trouble again.

Trying to reconstruct structure type trees from debuginformation given 
by binutils objdump and parsed by a program of mine ... I got stuck 
where I have to compute the size of an ___XVL component (entity with 
variable length) which is an array.

(objdump output)
.
.
struct gen_siso_common_types__bdt_spectral_description___XVE { /* size 4 
id 1546 */
   gen_siso_common_types__bdt_spectral_description__T73s *cas___XVL; /* 
bitsize 32, bitpos 0 */
   gen_siso_common_types__bdt_spectral_description__T75s *fas___XVL4; /* 
bitsize 32, bitpos 0 */
   gen_siso_common_types__bdt_spectral_description__T77s *tas___XVL4; /* 
bitsize 32, bitpos 0 */
};
.
.

(corresponding ada code)
.
.
    type Spectral_Table is
       array (Index range <>) of Basic.Float32; -- Intensitaetsfaktoren

    type Bdt_Spectral_Description is
       record
          Cas : Spectral_Table(1 .. Bdt_Cas_Bands); -- BDT-Spektrum CAS
          Fas : Spectral_Table(1 .. Bdt_Fas_Bands); -- BDT-Spektrum FAS
          Tas : Spectral_Table(1 .. Bdt_Tas_Bands); -- BDT-Spektrum TAS
       end record;
.
.

When I understood exp_debug.ads right I cannot compute the size of such 
array ... but the debugger surely knows it.

Can someone help?


Thanks very much
Roul