OSDN Git Service

gcc/ada/
authorsam <sam@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 2 Dec 2007 18:27:53 +0000 (18:27 +0000)
committersam <sam@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 2 Dec 2007 18:27:53 +0000 (18:27 +0000)
* clean.adb (Clean_Library_Directory): Use Empty_String'Access intead
of Empty_String'Unchecked_Access.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130571 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/clean.adb

index b9a6caa..c7af95c 100644 (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
index 65d1aea..2a02c84 100644 (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