Rombobjörn

summaryrefslogtreecommitdiff
path: root/milter_api-set_reply.adb
diff options
context:
space:
mode:
authorBjörn Persson <bjorn@rombobjörn.se>2013-01-21 21:01:07 +0100
committerBjörn Persson <bjorn@rombobjörn.se>2013-01-21 21:01:07 +0100
commit57cc2e4bffde1ae9f2be12769efc7bec75be32cd (patch)
treeabcf892479589a04b0712f73c6c89729428b2572 /milter_api-set_reply.adb
parent935e8799870cda04d964b46ee72b5224fee5571c (diff)
Silenced a warning.
Diffstat (limited to 'milter_api-set_reply.adb')
-rw-r--r--milter_api-set_reply.adb2
1 files changed, 1 insertions, 1 deletions
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;