diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-03-08 07:04:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-03-08 07:04:05 +0100 |
| commit | e6001445a14d5e96db78ff56c68d8ae96dec0968 (patch) | |
| tree | 77394e40d752c04e5f4ce61b0c868aa2d4b06fa3 /ortho/mcode/binary_file-coff.adb | |
| parent | d9bb785009b005cc314f063ae05b8974fd8f4bf2 (diff) | |
| download | ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.tar.gz ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.tar.bz2 ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.zip | |
Share spec of ortho_nodes, adjust code.
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 a49c02422..cf3cba3f4 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; |