diff options
author | Yannick Moy <moy@adacore.com> | 2023-07-19 17:57:30 +0200 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2023-08-01 10:06:46 +0200 |
commit | 9a36d1d13dd2d93b44b06384e2d4b20fcc850cc5 (patch) | |
tree | 6c2761baff4cd11ea86ba5b323e104465bab6d19 | |
parent | 2c59b33838e796694f347bf4588351d25e4c3a6a (diff) | |
download | gcc-9a36d1d13dd2d93b44b06384e2d4b20fcc850cc5.zip gcc-9a36d1d13dd2d93b44b06384e2d4b20fcc850cc5.tar.gz gcc-9a36d1d13dd2d93b44b06384e2d4b20fcc850cc5.tar.bz2 |
ada: Fix printing of numbers in JSON output for data representation
When calling GNAT with -gnatRj to generate JSON output for the
data representation of types and objects, it could happen that
numbers are printed in the Ada syntax for hexadecimal numbers, which
leads to an invalid JSON file being generated. Now fixed both for
the JSON output and the Ada-like output.
gcc/ada/
* repinfo.adb (Compute_Max_Length): Set parameter to print number
in decimal notation.
(List_Component_Layout): Same.
-rw-r--r-- | gcc/ada/repinfo.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index ba4b32b..ecd35e9 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -1100,7 +1100,7 @@ package body Repinfo is goto Continue; end if; - UI_Image (Spos); + UI_Image (Spos, Format => Decimal); else -- If the record is not packed, then we know that all fields -- whose position is not specified have starting normalized @@ -1176,7 +1176,7 @@ package body Repinfo is Spos := Spos + 1; end if; - UI_Image (Spos); + UI_Image (Spos, Format => Decimal); Spaces (Max_Spos_Length - UI_Image_Length); Write_Str (UI_Image_Buffer (1 .. UI_Image_Length)); |