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

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

From-SVN: r130571
This commit is contained in:
Samuel Tardieu 2007-12-02 18:27:53 +00:00 committed by Samuel Tardieu
parent 06be4f564b
commit 0bcb4d2a2a
2 changed files with 7 additions and 2 deletions

View File

@ -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

View File

@ -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