This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] ada: Use 'Access instead of 'Unchecked_Access in clean.adb
- From: Samuel Tardieu <sam at rfc1149 dot net>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sat, 1 Dec 2007 20:01:00 +0100
- Subject: [PATCH] ada: Use 'Access instead of 'Unchecked_Access in clean.adb
- Organisation: RFC1149 (see http://www.rfc1149.net/)
Empty_String is a library level variable. 'Unchecked_Access can be replaced
by 'Access.
Tested on i686-pc-linux-gnu.
gcc/ada/
* clean.adb (Clean_Library_Directory): Use Empty_String'Access intead
of Empty_String'Unchecked_Access.
---
gcc/ada/clean.adb | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
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
--
1.5.3.6