diff options
| -rw-r--r-- | milter_api-set_reply.adb | 2 |
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; |