diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:03:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:03:38 +0000 |
| commit | b7ca89c5606272ae17507789d8ea30790fa72b38 (patch) | |
| tree | 644a6bf5583a35d02fb195335ac90e6baa77489b /gcc/ada/mlib.adb | |
| parent | 750b3003cf2073e87515a27ef4a66f5ed83feb65 (diff) | |
| download | gcc-b7ca89c5606272ae17507789d8ea30790fa72b38.tar.gz | |
2004-10-26 Thomas Quinot <quinot@act-europe.fr>
* g-os_lib.ads, g-os_lib.adb (Set_Executable, Set_Writable,
Set_Read_Only): New subprograms.
These new routines allow the user to set or unset the Owner execute
and Owner write permission flags on a file.
* makegpr.adb, mlib.adb, mlib-prj.adb: Use
GNAT.OS_Lib.Set_Executable instead of rolling our own.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89654 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/mlib.adb')
| -rw-r--r-- | gcc/ada/mlib.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 8e6d0e37db9..df8796f30cd 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -37,8 +37,6 @@ with MLib.Utl; use MLib.Utl; with GNAT.Directory_Operations; use GNAT.Directory_Operations; with GNAT.OS_Lib; use GNAT.OS_Lib; -with System; - package body MLib is ------------------- @@ -107,9 +105,6 @@ package body MLib is To_Dir : constant String := Get_Name_String (To); Interface : Boolean := False; - procedure Set_Readonly (Name : System.Address); - pragma Import (C, Set_Readonly, "__gnat_set_readonly"); - procedure Verbose_Copy (Index : Positive); -- In verbose mode, output a message that the indexed file is copied -- to the destination directory. @@ -264,7 +259,8 @@ package body MLib is Success := Status and Actual_Len = Len + 3; if Success then - Set_Readonly (Name_Buffer'Address); + Set_Read_Only ( + Name_Buffer (1 .. Name_Len - 1)); end if; end if; end if; |