diff options
Diffstat (limited to 'src/ghdldrv')
| -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 |