From 202a2b793474a2c6db7d9cb991e1a47935ef52a5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Nov 2019 20:44:11 +0100
Subject: ghdldrv: adjust after change in Dyn_Tables.  Fix breakage.

---
 src/ghdldrv/ghdldrv.adb | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index 8daaae6bd..dd2320daf 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -95,8 +95,7 @@ package body Ghdldrv is
    package Argument_Table_Pkg is new Dyn_Tables
      (Table_Component_Type => String_Access,
       Table_Index_Type => Integer,
-      Table_Low_Bound => 1,
-      Table_Initial => 4);
+      Table_Low_Bound => 1);
    use Argument_Table_Pkg;
 
    --  Arguments for tools.
@@ -592,10 +591,10 @@ package body Ghdldrv is
       Output_File := null;
 
       --  Initialize argument tables.
-      Init (Compiler_Args);
-      Init (Postproc_Args);
-      Init (Assembler_Args);
-      Init (Linker_Args);
+      Init (Compiler_Args, 4);
+      Init (Postproc_Args, 4);
+      Init (Assembler_Args, 4);
+      Init (Linker_Args, 4);
       Init (Command_Lib (Cmd));
    end Init;
 
-- 
cgit v1.2.3