From 9a36d1d13dd2d93b44b06384e2d4b20fcc850cc5 Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Wed, 19 Jul 2023 17:57:30 +0200 Subject: [PATCH] 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. --- gcc/ada/repinfo.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index ba4b32b7027e..ecd35e94e142 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)); -- 2.47.2