From de9b2a969ebc6ebce82331c67c895a0f99b0cc78 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 29 May 2018 09:39:44 +0000 Subject: [Ada] Adjustment of behavior of new -gnatRj switch This decouples -gnatRj from the destination, either standard output or file, so that it only toggles the format of the representation information. 2018-05-29 Eric Botcazou gcc/ada/ * doc/gnat_ugn/building_executable_programs_with_gnat.rst (Debugging Control): Adjust description of -gnatRj. * gnat_ugn.texi: Regenerate. * opt.ads (List_Representation_Info_To_JSON): Likewise. * repinfo.adb (List_Rep_Info): Do not automatically create a file if List_Representation_Info_To_JSON is true. * switch-c.adb (Scan_Front_End_Switches) : Remove incompatibility check between -gnatRj and -gnatRs. * usage.adb (Usage): Adjust description of -gnatRj. From-SVN: r260873 --- gcc/ada/switch-c.adb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'gcc/ada/switch-c.adb') diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index be8fb61..ab7c2b3 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -1227,12 +1227,10 @@ package body Switch.C is Ptr := Ptr + 1; end loop; - if List_Representation_Info_To_JSON then - if List_Representation_Info_To_File then - Osint.Fail ("-gnatRs is incompatible with -gnatRj"); - elsif List_Representation_Info_Extended then - Osint.Fail ("-gnatRe is incompatible with -gnatRj"); - end if; + if List_Representation_Info_To_JSON + and then List_Representation_Info_Extended + then + Osint.Fail ("-gnatRe is incompatible with -gnatRj"); end if; -- -gnats (syntax check only) -- cgit v1.1