diff options
Diffstat (limited to 'ortho/mcode/binary_file-coff.adb')
| -rw-r--r-- | ortho/mcode/binary_file-coff.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ortho/mcode/binary_file-coff.adb b/ortho/mcode/binary_file-coff.adb index a49c024..cf3cba3 100644 --- a/ortho/mcode/binary_file-coff.adb +++ b/ortho/mcode/binary_file-coff.adb @@ -393,7 +393,7 @@ package body Binary_File.Coff is for I in Symbols.First .. Symbols.Last loop declare - Str : String := Get_Symbol_Name (I); + Str : constant String := Get_Symbol_Name (I); begin Write_String (Str & NUL); end; |