aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorPascal Obry <obry@adacore.com>2009-04-16 12:20:55 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-16 14:20:55 +0200
commitbca17d5131ae9c0db27fa07078e90ac95aa67d87 (patch)
treebabc8bc89ecf663e81d1d4d5d3f5a19bc4d011fc /gcc
parent4e0079cc3ce34e5d73d82ad99c96b43b7f5184e7 (diff)
downloadgcc-bca17d5131ae9c0db27fa07078e90ac95aa67d87.zip
gcc-bca17d5131ae9c0db27fa07078e90ac95aa67d87.tar.gz
gcc-bca17d5131ae9c0db27fa07078e90ac95aa67d87.tar.bz2
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
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/s-crtl.ads2
-rwxr-xr-xgcc/ada/s-os_lib.adb6
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;