From 0bcb4d2a2a4bfef930492a60fb6ede51f3b5a0c9 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Sun, 2 Dec 2007 18:27:53 +0000 Subject: [PATCH] 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 --- 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 b9a6caaafb9..c7af95c31c8 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 65d1aeaae82..2a02c84e611 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.30.2