diff options
| author | Xiretza <xiretza@xiretza.xyz> | 2021-05-09 20:02:39 +0200 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2021-05-10 07:56:17 +0200 |
| commit | 066242de5014013330c4dad7ca8971d8f667a966 (patch) | |
| tree | 71ac6a786ea5aa7d1a3d15748c06037a956205ff /src/grt | |
| parent | f7dec74cfabea67a33cf8835a6fcfbad10a60768 (diff) | |
| download | ghdl-066242de5014013330c4dad7ca8971d8f667a966.tar.gz ghdl-066242de5014013330c4dad7ca8971d8f667a966.tar.bz2 ghdl-066242de5014013330c4dad7ca8971d8f667a966.zip | |
grt: fix warning about possible constant declaration
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/ghdl_main.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/ghdl_main.adb b/src/grt/ghdl_main.adb index b9121122c..92e69c362 100644 --- a/src/grt/ghdl_main.adb +++ b/src/grt/ghdl_main.adb @@ -42,7 +42,7 @@ is function To_Argv_Type is new Ada.Unchecked_Conversion (Source => System.Address, Target => Grt.Options.Argv_Type); - Args : Grt.Options.Argv_Type := To_Argv_Type (Argv); + Args : constant Grt.Options.Argv_Type := To_Argv_Type (Argv); Progname : Ghdl_C_String := null; begin -- Ada elaboration. |