Commit d61f428e by Robert Dewar Committed by Arnaud Charlet

s-os_lib.adb: Minor reformatting

2008-08-05  Robert Dewar  <dewar@adacore.com>

	* s-os_lib.adb: Minor reformatting

From-SVN: r138690
parent e3cea238
...@@ -592,11 +592,9 @@ package body System.OS_Lib is ...@@ -592,11 +592,9 @@ package body System.OS_Lib is
Ada_Name : String_Access := Ada_Name : String_Access :=
To_Path_String_Access To_Path_String_Access
(Name, C_String_Length (Name)); (Name, C_String_Length (Name));
Ada_Pathname : String_Access := Ada_Pathname : String_Access :=
To_Path_String_Access To_Path_String_Access
(Pathname, C_String_Length (Pathname)); (Pathname, C_String_Length (Pathname));
begin begin
Copy_File (Ada_Name.all, Ada_Pathname.all, Success, Mode, Preserve); Copy_File (Ada_Name.all, Ada_Pathname.all, Success, Mode, Preserve);
Free (Ada_Name); Free (Ada_Name);
...@@ -621,6 +619,7 @@ package body System.OS_Lib is ...@@ -621,6 +619,7 @@ package body System.OS_Lib is
declare declare
C_Source : String (1 .. Source'Length + 1); C_Source : String (1 .. Source'Length + 1);
C_Dest : String (1 .. Dest'Length + 1); C_Dest : String (1 .. Dest'Length + 1);
begin begin
C_Source (1 .. Source'Length) := Source; C_Source (1 .. Source'Length) := Source;
C_Source (C_Source'Last) := ASCII.NUL; C_Source (C_Source'Last) := ASCII.NUL;
...@@ -647,7 +646,6 @@ package body System.OS_Lib is ...@@ -647,7 +646,6 @@ package body System.OS_Lib is
Ada_Source : String_Access := Ada_Source : String_Access :=
To_Path_String_Access To_Path_String_Access
(Source, C_String_Length (Source)); (Source, C_String_Length (Source));
Ada_Dest : String_Access := Ada_Dest : String_Access :=
To_Path_String_Access To_Path_String_Access
(Dest, C_String_Length (Dest)); (Dest, C_String_Length (Dest));
...@@ -2474,7 +2472,7 @@ package body System.OS_Lib is ...@@ -2474,7 +2472,7 @@ package body System.OS_Lib is
Command_Last : Natural := 0; Command_Last : Natural := 0;
Command : aliased Chars (1 .. Command_Len); Command : aliased Chars (1 .. Command_Len);
-- Command contains all characters of the Program_Name and Args, all -- 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_Len : constant Positive := Args'Length + 2;
Arg_List_Last : Natural := 0; Arg_List_Last : Natural := 0;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment