diff options
| author | Samuel Tardieu <sam@rfc1149.net> | 2007-12-02 18:27:53 +0000 |
|---|---|---|
| committer | Samuel Tardieu <sam@gcc.gnu.org> | 2007-12-02 18:27:53 +0000 |
| commit | 0bcb4d2a2a4bfef930492a60fb6ede51f3b5a0c9 (patch) | |
| tree | fd2819c26d6b997fcf4fb2e1c57fe466b3300f85 | |
| parent | 06be4f564b5ba917d651788eb166780fc1961ec8 (diff) | |
| download | gcc-0bcb4d2a2a4bfef930492a60fb6ede51f3b5a0c9.zip gcc-0bcb4d2a2a4bfef930492a60fb6ede51f3b5a0c9.tar.gz gcc-0bcb4d2a2a4bfef930492a60fb6ede51f3b5a0c9.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/clean.adb | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b9a6caa..c7af95c 100644 --- 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 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 |