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

3 files changed, 6 insertions, 6 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 188671c..12b55c6 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 e2d586b..4c76ccf 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 0add64f..d1f1d7b 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;