diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2018-11-14 11:40:20 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-11-14 11:40:20 +0000 |
commit | e3548b69ad7ce76aa9e9aecf6a707ab0f88114ae (patch) | |
tree | 6130aa2cacf62b88c98eecbc61ba7e61e15f632a | |
parent | ae93ccb2af09fa4158a3bb531aecbd58cacdfa6c (diff) | |
download | gcc-e3548b69ad7ce76aa9e9aecf6a707ab0f88114ae.zip gcc-e3548b69ad7ce76aa9e9aecf6a707ab0f88114ae.tar.gz gcc-e3548b69ad7ce76aa9e9aecf6a707ab0f88114ae.tar.bz2 |
[Ada] Use Cancel_Special_Output instead of Set_Special_Output with null
I believe Cancel_Special_Output is easier to read and thus preferred;
otherwise, it wouldn't be introduced, so let's use it where possible.
2018-11-14 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* bindgen.adb, exp_cg.adb, repinfo.adb, sprint.adb: Minor reuse
Cancel_Special_Output where possible.
From-SVN: r266110
-rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/ada/bindgen.adb | 2 | ||||
-rw-r--r-- | gcc/ada/exp_cg.adb | 2 | ||||
-rw-r--r-- | gcc/ada/repinfo.adb | 2 | ||||
-rw-r--r-- | gcc/ada/sprint.adb | 2 |
5 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d760f80..26ffdfc 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2018-11-14 Piotr Trojanek <trojanek@adacore.com> + * bindgen.adb, exp_cg.adb, repinfo.adb, sprint.adb: Minor reuse + Cancel_Special_Output where possible. + +2018-11-14 Piotr Trojanek <trojanek@adacore.com> + * exp_dbug.ads, sem_util.ads: Minor fixes in comments. 2018-11-14 Arnaud Charlet <charlet@adacore.com> diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 4b4e2bb..27227a6 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -1186,7 +1186,7 @@ package body Bindgen is end loop; WBI (" & ASCII.NUL;"); - Set_Special_Output (null); + Cancel_Special_Output; Bind_Env_String_Built := True; end Gen_Bind_Env_String; diff --git a/gcc/ada/exp_cg.adb b/gcc/ada/exp_cg.adb index f40dc7e..0c6e08b 100644 --- a/gcc/ada/exp_cg.adb +++ b/gcc/ada/exp_cg.adb @@ -146,7 +146,7 @@ package body Exp_CG is end if; end loop; - Set_Special_Output (null); + Cancel_Special_Output; end Generate_CG_Output; ---------------- diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index e75bb1d..2a0d568 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -1756,7 +1756,7 @@ package body Repinfo is (Get_Name_String (File_Name (Source_Index (U)))); Set_Special_Output (Write_Info_Line'Access); List_Entities (Cunit_Entity (U), Bytes_Big_Endian); - Set_Special_Output (null); + Cancel_Special_Output; Close_Repinfo_File_Access.all; end if; end if; diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index ab7eecb..a1dbb3c 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -660,7 +660,7 @@ package body Sprint is Write_Source_Lines (Last_Source_Line (Current_Source_File)); Write_Eol; Close_Debug_Source; - Set_Special_Output (null); + Cancel_Special_Output; -- Normal output to standard output file |