diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-06-11 09:11:13 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-09 12:35:29 +0000 |
| commit | 2390451ede49fa09bc0d9692802651aff66ae8a6 (patch) | |
| tree | 286003a293ba8de1824f3a86d90b282c31f9cf79 /gcc/ada/gsocket.h | |
| parent | 06fd120d19d2636a812c9ffe4b8871f3733ae213 (diff) | |
| download | gcc-2390451ede49fa09bc0d9692802651aff66ae8a6.zip gcc-2390451ede49fa09bc0d9692802651aff66ae8a6.tar.gz gcc-2390451ede49fa09bc0d9692802651aff66ae8a6.tar.bz2 | |
[Ada] Fix invalid JSON for derived variant record with -gnatRj
gcc/ada/
* repinfo.ads (JSON output format): Document adjusted key name.
* repinfo.adb (List_Record_Layout): Use Original_Record_Component
if the normalized position of the component is not known.
(List_Structural_Record_Layout): Rename Outer_Ent parameter into
Ext_End and add Ext_Level parameter. In an extension, if the parent
subtype has static discriminants, call List_Record_Layout on it.
Output "parent_" prefixes before "variant" according to Ext_Level.
Adjust recursive calls throughout the procedure.
Diffstat (limited to 'gcc/ada/gsocket.h')
0 files changed, 0 insertions, 0 deletions