diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-04 18:51:18 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-04 18:51:18 +0100 |
| commit | 04874392cb60b4d35d3f80c5c38f3af448f674ed (patch) | |
| tree | 897ded922484ffd45c5c0d8bc49cb242b8b68ff8 /src/ghdldrv/ghdlmain.adb | |
| parent | 83331b92f6763f42342303077d13a7bee505900b (diff) | |
| download | ghdl-04874392cb60b4d35d3f80c5c38f3af448f674ed.tar.gz ghdl-04874392cb60b4d35d3f80c5c38f3af448f674ed.tar.bz2 ghdl-04874392cb60b4d35d3f80c5c38f3af448f674ed.zip | |
ghdlmain: simplify code.
Diffstat (limited to 'src/ghdldrv/ghdlmain.adb')
| -rw-r--r-- | src/ghdldrv/ghdlmain.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb index 00b09bb30..1db20fbaa 100644 --- a/src/ghdldrv/ghdlmain.adb +++ b/src/ghdldrv/ghdlmain.adb @@ -487,10 +487,7 @@ package body Ghdlmain is end; end; - -- Free args. - for I in Args'Range loop - Free (Args (I)); - end loop; + -- Free args. This frees both the array and the strings. Free (Args); --if Flags.Dump_Stats then |