diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-05 11:29:12 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 11:29:12 +0200 |
| commit | d61f428e8af7ca4148afc035aa750db708745d0c (patch) | |
| tree | ea3ccc974955659877666991a076935d7f170e36 /gcc | |
| parent | e3cea23883525b627f3d4341373dd2cee655eb39 (diff) | |
| download | gcc-d61f428e8af7ca4148afc035aa750db708745d0c.zip gcc-d61f428e8af7ca4148afc035aa750db708745d0c.tar.gz gcc-d61f428e8af7ca4148afc035aa750db708745d0c.tar.bz2 | |
s-os_lib.adb: Minor reformatting
2008-08-05 Robert Dewar <dewar@adacore.com>
* s-os_lib.adb: Minor reformatting
From-SVN: r138690
Diffstat (limited to 'gcc')
| -rwxr-xr-x | gcc/ada/s-os_lib.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index 8ba90aa..fbea2a3 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -592,11 +592,9 @@ package body System.OS_Lib is Ada_Name : String_Access := To_Path_String_Access (Name, C_String_Length (Name)); - Ada_Pathname : String_Access := To_Path_String_Access (Pathname, C_String_Length (Pathname)); - begin Copy_File (Ada_Name.all, Ada_Pathname.all, Success, Mode, Preserve); Free (Ada_Name); @@ -621,6 +619,7 @@ package body System.OS_Lib is declare C_Source : String (1 .. Source'Length + 1); C_Dest : String (1 .. Dest'Length + 1); + begin C_Source (1 .. Source'Length) := Source; C_Source (C_Source'Last) := ASCII.NUL; @@ -647,7 +646,6 @@ package body System.OS_Lib is Ada_Source : String_Access := To_Path_String_Access (Source, C_String_Length (Source)); - Ada_Dest : String_Access := To_Path_String_Access (Dest, C_String_Length (Dest)); @@ -2474,7 +2472,7 @@ package body System.OS_Lib is Command_Last : Natural := 0; Command : aliased Chars (1 .. Command_Len); -- Command contains all characters of the Program_Name and Args, all - -- terminated by ASCII.NUL characters + -- terminated by ASCII.NUL characters. Arg_List_Len : constant Positive := Args'Length + 2; Arg_List_Last : Natural := 0; |