From 04874392cb60b4d35d3f80c5c38f3af448f674ed Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 4 Nov 2019 18:51:18 +0100
Subject: ghdlmain: simplify code.

---
 src/ghdldrv/ghdlmain.adb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3