diff options
Diffstat (limited to 'gcc/ada/g-expect.adb')
| -rw-r--r-- | gcc/ada/g-expect.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/g-expect.adb b/gcc/ada/g-expect.adb index 1cb07881f12..c4902b51d0e 100644 --- a/gcc/ada/g-expect.adb +++ b/gcc/ada/g-expect.adb @@ -972,9 +972,9 @@ package body GNAT.Expect is for J in Args'Range loop Arg := new String (1 .. Args (J)'Length + 1); - Arg (1 .. Args (J)'Length) := Args (J).all; - Arg (Arg'Last) := ASCII.NUL; - Arg_List (J + 2 - Args'First) := Arg.all'Access; + Arg (1 .. Args (J)'Length) := Args (J).all; + Arg (Arg'Last) := ASCII.NUL; + Arg_List (J + 2 - Args'First) := Arg.all'Access; end loop; Arg_List (Arg_List'Last) := null; @@ -1163,8 +1163,8 @@ package body GNAT.Expect is Pipe1 : in out Pipe_Type; Pipe2 : in out Pipe_Type; Pipe3 : in out Pipe_Type; - Cmd : in String; - Args : in System.Address) + Cmd : String; + Args : System.Address) is pragma Warnings (Off, Pid); |