From 9c73a4504404685cd708deef90eba221c73a3d79 Mon Sep 17 00:00:00 2001 From: sam Date: Sun, 2 Dec 2007 18:27:53 +0000 Subject: [PATCH] gcc/ada/ * 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 | 5 +++++ 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 + + * clean.adb (Clean_Library_Directory): Use Empty_String'Access intead + of Empty_String'Unchecked_Access. + 2007-12-01 Kostik Belousov 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 -- 2.7.4