From: Pascal Obry <obry@adacore.com>
Date: Thu, 16 Apr 2009 12:20:55 +0000 (+0000)
Subject: s-crtl.ads, [...]: Minor code clean-up.
X-Git-Tag: releases/gcc-4.5.0~6546
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=bca17d5131ae9c0db27fa07078e90ac95aa67d87;p=thirdparty%2Fgcc.git

s-crtl.ads, [...]: Minor code clean-up.

2009-04-16  Pascal Obry  <obry@adacore.com>

	* s-crtl.ads, s-os_lib.adb: Minor code clean-up.

From-SVN: r146175
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 188671c73845..12b55c681b6b 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-16  Pascal Obry  <obry@adacore.com>
+
+	* s-crtl.ads, s-os_lib.adb: Minor code clean-up.
+
 2009-04-16  Thomas Quinot  <quinot@adacore.com>
 
 	* snames.ads-tmpl (Name_Defined): New predefined name for use by the
diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads
index e2d586b46078..4c76ccfd611c 100644
--- a/gcc/ada/s-crtl.ads
+++ b/gcc/ada/s-crtl.ads
@@ -188,7 +188,7 @@ package System.CRTL is
    pragma Import (C, ungetc, "ungetc");
 
    function unlink (filename : chars) return int;
-   pragma Import (C, unlink, "unlink");
+   pragma Import (C, unlink, "__gnat_unlink");
 
    function open (filename : chars; oflag : int) return int;
    pragma Import (C, open, "open");
diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb
index 0add64f94d13..d1f1d7b82180 100755
--- a/gcc/ada/s-os_lib.adb
+++ b/gcc/ada/s-os_lib.adb
@@ -846,12 +846,8 @@ package body System.OS_Lib is
 
    procedure Delete_File (Name : Address; Success : out Boolean) is
       R : Integer;
-
-      function unlink (A : Address) return Integer;
-      pragma Import (C, unlink, "__gnat_unlink");
-
    begin
-      R := unlink (Name);
+      R := System.CRTL.unlink (Name);
       Success := (R = 0);
    end Delete_File;