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:
parent
06be4f564b
commit
0bcb4d2a2a
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user