Fix compilation failure in new GNAT

Author: anisimkov

src/extended/aws-smtp.adb

@@ -89,7 +89,7 @@ package body AWS.SMTP is
    -- Add --
    ---------
 
-   procedure Add (Answer : in out Server_Reply; Status : in out SMTP.Status) is
+   procedure Add (Answer : Server_Reply; Status : in out SMTP.Status) is
    begin
       Utils.Append_With_Sep
         (Status.Reason, Image (Answer), Sep => String'(1 => ASCII.LF));

src/extended/aws-smtp.ads

@@ -177,7 +177,7 @@ private
    function Image (Answer : Server_Reply) return String;
    --  Returns the string representation for Answer
 
-   procedure Add (Answer : in out Server_Reply; Status : in out SMTP.Status);
+   procedure Add (Answer : Server_Reply; Status : in out SMTP.Status);
    --  Add status code and reason to the list of server's reply
 
    procedure Check_Answer