aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2018-11-14 11:40:20 +0000
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>2018-11-14 11:40:20 +0000
commite3548b69ad7ce76aa9e9aecf6a707ab0f88114ae (patch)
tree6130aa2cacf62b88c98eecbc61ba7e61e15f632a
parentae93ccb2af09fa4158a3bb531aecbd58cacdfa6c (diff)
downloadgcc-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/ChangeLog5
-rw-r--r--gcc/ada/bindgen.adb2
-rw-r--r--gcc/ada/exp_cg.adb2
-rw-r--r--gcc/ada/repinfo.adb2
-rw-r--r--gcc/ada/sprint.adb2
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