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 188671c73845f293f80fb96ada68e11f0b3d1f10..12b55c681b6b5a4ca20f1a2146345e6459c05f56 100644 (file)
--- 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 e2d586b46078719721a1c6eba24a9cf2209a36c3..4c76ccfd611c2316338676c706550e340e308f5a 100644 (file)
--- 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 0add64f94d13183e4fb62cfea764bd04d3d9f1fb..d1f1d7b8218014958ea20516fd4c9086ac8c6379 100755 (executable)
--- 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;