From 57cc2e4bffde1ae9f2be12769efc7bec75be32cd Mon Sep 17 00:00:00 2001
From: Björn Persson <bjorn@rombobjörn.se>
Date: Mon, 21 Jan 2013 21:01:07 +0100
Subject: Silenced a warning.

---
 milter_api-set_reply.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/milter_api-set_reply.adb b/milter_api-set_reply.adb
index 066c971..774488a 100644
--- a/milter_api-set_reply.adb
+++ b/milter_api-set_reply.adb
@@ -742,7 +742,7 @@ is
       return int;
    pragma import(C, smfi_setmlreply);
 
-   C_Reply_Code      : aliased char_array := To_C(Reply_Code);
+   C_Reply_Code      : aliased constant char_array := To_C(Reply_Code);
    C_Extended_Code   : aliased char_array := To_C(Extended_Code);
    Extended_Code_Ptr : chars_ptr := Null_Ptr;
 
-- 
cgit v1.2.3