From bca17d5131ae9c0db27fa07078e90ac95aa67d87 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Thu, 16 Apr 2009 12:20:55 +0000 Subject: s-crtl.ads, [...]: Minor code clean-up. 2009-04-16 Pascal Obry * s-crtl.ads, s-os_lib.adb: Minor code clean-up. From-SVN: r146175 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/s-crtl.ads | 2 +- gcc/ada/s-os_lib.adb | 6 +----- 3 files changed, 6 insertions(+), 6 deletions(-) (limited to 'gcc') 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 + + * s-crtl.ads, s-os_lib.adb: Minor code clean-up. + 2009-04-16 Thomas Quinot * 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; -- cgit v1.1