diff options
| author | Pascal Obry <obry@adacore.com> | 2009-04-16 12:20:55 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 14:20:55 +0200 |
| commit | bca17d5131ae9c0db27fa07078e90ac95aa67d87 (patch) | |
| tree | babc8bc89ecf663e81d1d4d5d3f5a19bc4d011fc /gcc/ada/s-os_lib.adb | |
| parent | 4e0079cc3ce34e5d73d82ad99c96b43b7f5184e7 (diff) | |
| download | gcc-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/ada/s-os_lib.adb')
| -rwxr-xr-x | gcc/ada/s-os_lib.adb | 6 |
1 files changed, 1 insertions, 5 deletions
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; |