mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 22:11:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r146175
This commit is contained in:
Pascal Obry 2009-04-16 12:20:55 +00:00 committed by Arnaud Charlet
parent 4e0079cc3c
commit bca17d5131
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

2
gcc/ada/s-crtl.ads
View File

@ -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");

6
gcc/ada/s-os_lib.adb
View File

@ -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;