diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-05-29 09:39:44 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-29 09:39:44 +0000 |
| commit | de9b2a969ebc6ebce82331c67c895a0f99b0cc78 (patch) | |
| tree | c90bd22413cd1052b8920b6617ad5eb786a55764 /gcc/ada/switch-c.adb | |
| parent | ce09c3c07f3bae669c0152ba4d72a708cfe27d0f (diff) | |
| download | gcc-de9b2a969ebc6ebce82331c67c895a0f99b0cc78.zip gcc-de9b2a969ebc6ebce82331c67c895a0f99b0cc78.tar.gz gcc-de9b2a969ebc6ebce82331c67c895a0f99b0cc78.tar.bz2 | |
[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 <ebotcazou@adacore.com>
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) <R>: Remove incompatibility
check between -gnatRj and -gnatRs.
* usage.adb (Usage): Adjust description of -gnatRj.
From-SVN: r260873
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 10 |
1 files changed, 4 insertions, 6 deletions
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) |