Rombobjörn

summaryrefslogtreecommitdiff
path: root/milter_api-set_reply.adb
diff options
context:
space:
mode:
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;