diff options
| author | Björn Persson <bjorn@rombobjörn.se> | 2013-01-21 21:01:07 +0100 |
|---|---|---|
| committer | Björn Persson <bjorn@rombobjörn.se> | 2013-01-21 21:01:07 +0100 |
| commit | 57cc2e4bffde1ae9f2be12769efc7bec75be32cd (patch) | |
| tree | abcf892479589a04b0712f73c6c89729428b2572 | |
| parent | 935e8799870cda04d964b46ee72b5224fee5571c (diff) | |
Silenced a warning.
| -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; |