diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-01-04 16:41:47 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-15 11:36:41 +0200 |
| commit | a372273b63b17c843e93bb179c8e56a270dd9e40 (patch) | |
| tree | bc99c91725a622dc6b06757c0af23e1ffccaef2b /libgcc | |
| parent | f959a78b0d26513cd0802ac1402adc4ebdd4db67 (diff) | |
| download | gcc-a372273b63b17c843e93bb179c8e56a270dd9e40.zip gcc-a372273b63b17c843e93bb179c8e56a270dd9e40.tar.gz gcc-a372273b63b17c843e93bb179c8e56a270dd9e40.tar.bz2 | |
ada: Fix invalid JSON for extended variant record with -gnatRj
This fixes the output of -gnatRj for an extension of a tagged type which has
a variant part and also deals with the case where the parent type is private
with unknown discriminants.
gcc/ada/
* repinfo.ads (JSON output format): Document special case of
Present member of a Variant object.
* repinfo.adb (List_Structural_Record_Layout): Change the type of
Ext_Level parameter to Integer. Restrict the first recursion with
increasing levels to the fixed part and implement a second
recursion with decreasing levels for the variant part. Deal with
an extension of a type with unknown discriminants.
Diffstat (limited to 'libgcc')
0 files changed, 0 insertions, 0 deletions