clean.adb (Clean_Library_Directory): Use Empty_String'Access intead of Empty_String...

    gcc/ada/
	* clean.adb (Clean_Library_Directory): Use Empty_String'Access intead
	of Empty_String'Unchecked_Access.

From-SVN: r130571

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b9a6caaafb941dc2816b7bd6b06fdceda780423e..c7af95c31c81bed1fccf68acd211f59e2bc3158a 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-02  Samuel Tardieu  <sam@rfc1149.net>
+
+       * clean.adb (Clean_Library_Directory): Use Empty_String'Access intead
+       of Empty_String'Unchecked_Access.
+
 2007-12-01  Kostik Belousov  <kostikbel@ukr.net>
 
        PR ada/33722

diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb
index 65d1aeaae82161cd66e124ee5242dbc4caa03c3d..2a02c84e611f38806ee35f3b967ea92ecdc4b251 100644 (file)
--- a/gcc/ada/clean.adb
+++ b/gcc/ada/clean.adb
@@ -648,8 +648,8 @@ package body Clean is
 
       Delete_File : Boolean;
 
-      Minor : String_Access := Empty_String'Unchecked_Access;
-      Major : String_Access := Empty_String'Unchecked_Access;
+      Minor : String_Access := Empty_String'Access;
+      Major : String_Access := Empty_String'Access;
 
    begin
       if Data.Library then