[PATCH] ada: Use 'Access instead of 'Unchecked_Access in clean.adb

[Samuel Tardieu]

Empty_String is a library level variable. 'Unchecked_Access can be replaced
by 'Access.

Tested on i686-pc-linux-gnu.

    gcc/ada/
	* clean.adb (Clean_Library_Directory): Use Empty_String'Access intead
	of Empty_String'Unchecked_Access.
---
 gcc/ada/clean.adb |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb
index 65d1aea..2a02c84 100644
--- 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
-- 
1.5.3.6